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: ;;; When the constant is quoted, this function is called with the 
  ;;; surrounding QUOTE form stripped off. 
  (defun convert-constant (constant)
    (cond ((and (integerp constant)
  	      (<= sicl-configuration:+most-negative-fixnum+
  		  constant
  		  sicl-configuration:+most-positive-fixnum+))
  	 (sicl-ast:make-immediate-ast
  	  (sicl-configuration:host-integer-to-word constant)))
  	((characterp constant)
  	 (sicl-ast:make-immediate-ast
  	  (sicl-configuration:host-char-to-word constant)))
  	(*compile-for-linker*
  	 (convert-constant-for-linker constant))
  	(t
  	 ;; LOAD-TIME-VALUE takes a form, so if the form is
  	 ;; a constant, it must be quoted. 
  	 (sicl-ast:make-load-time-value-ast
  	  `(quote ,constant)))))
  
  (defun convert-variable (form env)
    (let ((info (sicl-env:variable-info form env t)))
  
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
  