anchor.diff:       sicl-configuration:+function-find-class+))
      (convert-arguments (cdr form) environment)))
   
  -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  -;;;
  -;;; Converting FIND-FUNCTION-CELL.
  -
  -(defmethod convert-compound
  -    ((symbol (eql 'sicl-env:find-function-cell)) form environment)
  -  (sicl-ast:make-call-ast
  -   (sicl-ast:make-memref-ast 
  -    (sicl-ast:make-immediate-ast
  -     sicl-configuration:+function-find-function-cell+))
  -   (convert-arguments (cdr form) environment)))
  -
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Converting code for low-level operators.
  
positive.code: 
  (defun convert-named-function (name environment)
    (let ((info (sicl-env:function-info name environment t)))
      (cond ((typep info 'sicl-env:global-location-info)
  	   (sicl-ast:make-memref-ast
  	    (sicl-ast:make-u+-ast
  	     (list (sicl-ast:make-load-time-value-ast
  		    `(sicl-env:find-function-cell ',name))
  		   (sicl-ast:make-immediate-ast
  		    sicl-configuration:+cdr-offset+)))))
  	  (t (sicl-env:location info)))))
  
  (defun convert-lambda-function (lambda-form env)
    (unless (sicl-code-utilities:proper-list-p lambda-form)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Converting code to an abstract syntax tree.
  
  ;;; When this variable is false, we are invoked by EVAL or COMPILE.
  ;;; When it is true, we are invoked by COMPILE-FILE.
  (defparameter *compile-file* nil)
  
  ;;; When this variable is false, non-immediate constants will be
  ;;; converted into a LOAD-TIME-VALUE ast, which means that the machine
  