anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;;
   ;;; Linkage code.
  -
  -;;; Linkage code for functions.  When this code is called, the
  +;;;
  +;;; When the linkage code of some object is called, the
   ;;; *program-counter-save* register contains the program counter value
  -;;; to be restored when the function returns.  this value has to be
  -;;; saved in the dynamic frame on top of the call stack.  Also, the
  -;;; operand stack needs to be saved in that frame.  A new dynamic
  -;;; frame is allocated and the function code is finally jumped to.
  -
  +;;; to be restored when the call has been accomplished.  Before this
  +;;; value is restored, the call stack, the constants and the operand
  +;;; stack must be restored, should they be modified by the callee.  
  +
  +;;; Linkage code for functions.  Just accesss the entry point of the
  +;;; function.  Count on the function to save and restore registers if
  +;;; it is required to do so in order to accomplish its task. 
   (defparameter *linkage-function-instructions*
     '(                                  ; CL ---
       (dup)                             ; CL CL ---
  
positive.code:     (jump)                            ; CL ---
      ))
  
  ;;; Linkage code for symbols. 
  (defparameter *linkage-symbol-instructions*
    '(                                  ; Sym ---
      ;; Find the slot vector.
  
negative.code: 		sicl-system:*linkage-error*)
    (make-rudimentary-setf-fdefinition)
    (make-rudimentary-funcall)
    (init-host-functions)
    )
    
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  