+ ("-C" (setf C "-C"))
+ (true (if A (compile-ar A M)
+ C (unless (change-dir M)
+ (write-line 2 (string "** directory is " (real-path)))
+ (write-line 2 (string "Cannot change to " M))
+ (exit 1))
+ (compile-file M))
+ (setf A nil)
+ (setf C nil)
+ )))