[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
added the :verbose flag to compile-file1...
Hi all,
In version 1.530, the verbose flag was not implimented in the
compile-file function, as documented. I went ahead and added it too
our distribution. This is the first time I screwed with this file, so I
would imagine that this behavior is common to all copies of 1.530.
enjoy -
greg
(just search for "END OF PATCH")
------------------------CUT HERE----------------------------------------------
*** cmpmain.orig Tue Apr 9 09:44:09 1991
--- cmpmain.lsp Mon Apr 8 13:16:09 1991
***************
*** 127,133 ****
(defun compile-file1 (input-pathname
! &key (output-file input-pathname)
#+aosvs (fasl-file t)
#+unix (o-file t)
(c-file nil)
--- 127,134 ----
(defun compile-file1 (input-pathname
! &key (verbose t)
! (output-file input-pathname)
#+aosvs (fasl-file t)
#+unix (o-file t)
(c-file nil)
***************
*** 171,176 ****
--- 172,179 ----
(setq *error-p* t)
(return-from compile-file1 (values)))
+ (let
+ ((*compile-verbose* verbose))
(when *compile-verbose*
(format t "~&Compiling ~a."
(namestring (merge-pathnames input-pathname #".lsp"))))
***************
*** 361,367 ****
(format t "~&No FASL generated.~%")
(setq *error-p* t)
(values)
! )))))))
(defun gazonk-name ( &aux tem)
(dotimes (i 1000)
--- 364,370 ----
(format t "~&No FASL generated.~%")
(setq *error-p* t)
(values)
! ))))))))
(defun gazonk-name ( &aux tem)
(dotimes (i 1000)
-----------------------------END OF PATCH-------------------------------------
--
Greg Sylvain UUCP: ...!{uunet}!umbc3!greg
Academic Computing Services Internaet (arpa): greg@umbc3.umbc.edu
Systems Programmer BITNET: GREGS@UMBC