anchor.diff:  		  *last-swl-args*)))
       (if r-args
   	(progn (setq *last-swl-args* args)
  -	       (funcall 'swll (string (first r-args))
  +	       (funcall 'swll-internal (string (first r-args))
   			(if (not (null (second r-args)))
   			    (string (second r-args)) nil)))
         (format t "No previous unit evaluated~%"))))
  
positive.code: 	  (specware::compile-and-load-lisp-file lisp-file-name))
        "Specware Processing Failed!")))
  
  #+allegro
  (top-level:alias ("swll" :case-sensitive) (&optional &rest args)
    (let ((r-args (if (not (null args))
  
negative.code: 
  (defparameter *sw-help-strings*
    '((":dir" . "List files in current directory")
      (#+allegro ":list" #-allegro ":list-units". "List loaded units")
      (":ls" . "List files in current directory")
      (":set-base" . "Set base library unit id")
      (":show" . "Show unit")
  