anchor.diff:    (and (char= #\! (aref (symbol-name form) 0))
          (parse-integer (subseq (symbol-name form) 1) :junk-allowed t)))
   
  -(defun make-sharpl-arg (number)
  -  (intern (format nil "!~D" number)))
  +(defun make-sharpl-arg (package number)
  +  (intern (format nil "!~D" number) package))
   
   ;; Copyright (c) 2002-2006, Edward Marco Baringer
   ;; All rights reserved. 
  
positive.code: that adds its two arguments."
    (declare (ignore subchar))
    (let ((body (read stream t nil t)))
      `(sharpl-expander ,body ,min-args)))
  
  (defun enable-sharp-l ()
    "Bind SHARPL-READER to the macro character #L.
  
  This function overrides (and forgets) and previous value of #L."
    (set-dispatch-macro-character #\# #\L #'sharpL-reader))
  
  (defun find-var-references (input-form)
    (typecase input-form
  
negative.code: 
  (defun highest-bang-var (form env)
    (let ((*warn-undefined* nil))
      (or
       (loop for var in (find-var-references (walk-form form nil (make-walk-env env)))
  	   if (bang-var-p var)
  