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: ;;;; eliminate the 'boilerplate' LAMBDA and concentrate on the body of
  ;;;; the lambda.
  
  (defmacro sharpl-expander (body min-args &environment env)
    (let* ((form body)
           (lambda-args (loop
                           for i upfrom 1 upto (max (or min-args 0)
                                                    (highest-bang-var form env))
                           collect (make-sharpl-arg i))))
      `(lambda ,lambda-args
         , (when lambda-args
             `(declare (ignorable ,@lambda-args)))
  
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)
  