anchor.diff:  
   (defun date (&optional (date (get-universal-time)))
     "Prints the date."
  -  (format t "~{~5*~4,'0D-~2:*~2,'0D-~2:*~2,'0D ~2:*~2,'0D:~2:*~2,'0D:~2:*~2,'0D~8*~}~%"
  +  (format t "~&~{~5*~4,'0D-~2:*~2,'0D-~2:*~2,'0D ~2:*~2,'0D:~2:*~2,'0D:~2:*~2,'0D~8*~}~%"
             (multiple-value-list (decode-universal-time date)))
     date)
   
  
positive.code:          :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~%"
                                      code (code-char code)
                                      (char-name (code-char code)))
                              (code-char code)))
  
negative.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))))
  
  