anchor.diff:           :for code :from start :below end
            :when (and (code-char code) ; ccl returns nil on some codes...
                       (string-match-p name (char-name (code-char code))))
  -         :collect #1=(progn (format t "#x~5,'0X  ~:*~6D  ~C  ~S~%"
  +         :collect #1=(progn (format t "~&#x~5,'0X  ~:*~6D  ~C  ~S~%"
                                       code (code-char code)
                                       (char-name (code-char code)))
                               (code-char code)))
  
positive.code:                        (function string<))))
      (let ((out (format nil "~{~A ~}" plist)))
        (if (< (length out) 60)
            (format t "   ~14A ~A~%" title out)
            (format t "   ~14A~{ ~<~%                  ~1:;~A~>~^~}~%"
                    title plist)))))
  
  (defun lspack (&rest arguments)
  
negative.code:       (psetf (first *package-stack*) (package-name *package*)
               *package* (find-package (first *package-stack*))))
    (cons (package-name *package*) *package-stack*))
  
  (defun popp ()
    "Pops the top of the package stack and assign it to *PACKAGE*."
    (if (null *package-stack*)
        (format t "~&Cannot pop an empty package stack.~%")
        (setf *package* (find-package (pop *package-stack*))))
    (cons (package-name *package*) *package-stack*))
  
  