anchor.diff:        (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.")
  +      (format t "~&Cannot pop an empty package stack.~%")
         (setf *package* (find-package (pop *package-stack*))))
     (cons (package-name *package*) *package-stack*))
   
  
positive.code: 
  (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*~}~%"
            (multiple-value-list (decode-universal-time date)))
    date)
  
  
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)
  