anchor.diff:  	     "The ~a directive does not take a numeric parameter"
   	     (which-directive condition)))))
   
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;;
  +;;; Sharpsign single quote
  +
   (defun sharpsign-single-quote-function (stream char parameter)
     (declare (ignore char))
     (unless (null parameter)
  
positive.code: 					(error 'unknown-character-name
  					       :name name))
  				      (return char))))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
negative.code: 	   :which-directive "#'"
  	   :parameter parameter))
    (list 'function (read stream t nil t)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Sharpsign backslash
  
  (defparameter *character-names*
    (let ((table (make-hash-table :test #'equal)))
  