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: #-mocl
  (defmethod documentation ((package t) (doc-type (eql 'exports)))
    (declare (ignore doc-type))
    (format t "~:{----------------------------------------~%~A~2%~A~2%~}"
            (mapcar (lambda (sym) (list sym (documentation sym 'function)))
                    (delete-if (lambda (sym) (null (documentation sym 'function)))
                               (list-external-symbols package))))
    (format t "Undocumented: ~{~A~^ ~}~%"
            (delete-if (lambda (sym)  (documentation sym 'function))
                       (list-external-symbols package))))
  
  
negative.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)
  