anchor.diff:    ;; define it
     )
   
  -(defun hash-function (stream char)
  +(defun sharpsign-function (stream char)
     (declare (ignore stream char))
     ;; define it
     )
  
positive.code: 	     "The ~a directive does not take a numeric parameter"
  	     (which-directive condition)))))
  
  (defun sharp-sign-single-quote-function (stream char parameter)
    (declare (ignore char))
    (unless (null parameter)
      (error 'no-parameter-allowed
  	   :which-directive "#'"
  	   :parameter parameter))
    (list 'function (read stream t nil t)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: ;;;
  ;;; Dispatch macro character functions
  
  (define-condition no-parameter-allowed (reader-error)
    ((%which-directive :initarg :which-directive :reader which-directive)
     (%parameter :initarg :parameter :reader parameter))
    (:report
  