anchor.diff:  ;;;; eliminate the 'boilerplate' LAMBDA and concentrate on the body of
   ;;;; the lambda.
   
  -(defmacro sharpl-expander (body min-args &environment env)
  +(defmacro sharpl-expander (package 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))))
  +                         collect (make-sharpl-arg package i))))
       `(lambda ,lambda-args
          , (when lambda-args
              `(declare (ignorable ,@lambda-args)))
  
positive.code:   (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)))
  
  ;; Copyright (c) 2002-2006, Edward Marco Baringer
  ;; All rights reserved. 
  
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)
  