anchor.diff:  	       (if (IO-SPEC::fileExistsAndReadable make-file)
   		   (progn
   		     (format t "; using existing make-file ~s...~%" make-file)
  -		     (run-cmd (format nil "~A -f ~A" make-command make-file))
  +		     (run-cmd make-command (format nil " -f ~A" make-command make-file))
   		     )
   		 (format t " and no previous make-file found; please supply a unit-id as argument.~%")
   		 )
  
positive.code:   )
  
  #-allegro
  (defun run-cmd (cmd)
    #+cmu  (ext:run-program cmd :output t)
    #+mcl  (ccl:run-program cmd :output t)
    #+sbcl (sb-ext:run-program cmd :output t)
    #-(or cmu mcl sbcl) (format t "Not yet implemented")
    (values))
  
  #+allegro
  (defun run-cmd (cmd)
    #+UNIX      (shell (format nil "~A" cmd))
    #+MSWINDOWS (shell (format nil "~A" cmd))
    #-(OR UNIX MSWINDOWS) (format t "~&Neither the UNIX nor MSWINDOWS feature is present, so I don't know what to do!~%")
    )
    
  
negative.code: 			     cbase cbase)
  		     ))
  		 (when *make-verbose* (format t ";; invoking make~%"))
  		 (run-cmd make-command (format nil " -f ~A"  make-file))
  		 )
  	     ;; else: no make-args
  	     (progn
  