anchor.diff:  
   (defparameter *sw-help-strings*
     '((":dir" . "List files in current directory")
  -    (":list" . "List loaded units")
  +    (#+allegro ":list" #-allegro ":list-units". "List loaded units")
       (":ls" . "List files in current directory")
       (":set-base" . "Set base library unit id")
       (":show" . "Show unit")
  
positive.code: 			       (format t "the compiled function ~A" fn))))
  			 (format t "~&~%"))))
  		    (t
  		     (warn "No value for expression?"))))))
        "Specware Processing Failed!")))
  #+allegro
  (top-level:alias ("swe" :case-sensitive :string) (x) (swe x))
  
negative.code:       (speccalc::checkSpecPathsExistence str)
        (princ (setf (sys:getenv "SWPATH") (string str))))))
  
  #-allegro
  (defun cd (&optional dir)
    (let ((dir (or dir (specware::getenv "HOME"))))
      #-cmu (specware::change-directory dir)
      #+cmu (progn (unix:unix-chdir dir)
  		 (namestring (specware::current-directory)))))
  
  #-allegro
  (defun pwd ()
    (namestring (specware::current-directory)))
  
  #-allegro
  (defun exit ()
    (quit))
  
  #-allegro
  (defun cl (file)
    (specware::compile-and-load-lisp-file file))
  
  (defun strip-extraneous (str)
    (let ((len (length str)))
  