From: <cli...@li...> - 2006-12-18 20:09:19
|
Send clisp-cvs mailing list submissions to cli...@li... To subscribe or unsubscribe via the World Wide Web, visit https://lists.sourceforge.net/lists/listinfo/clisp-cvs or, via email, send a message with subject or body 'help' to cli...@li... You can reach the person managing the list at cli...@li... When replying, please edit your Subject line so it is more specific than "Re: Contents of clisp-cvs digest..." CLISP CVS commits for today Today's Topics: 1. clisp/src dribble.lisp,1.9,1.10 ChangeLog,1.5467,1.5468 (Sam Steingold) 2. clisp/src init.lisp, 1.257, 1.258 dribble.lisp, 1.10, 1.11 compiler.lisp, 1.297, 1.298 ChangeLog, 1.5468, 1.5469 (Sam Steingold) 3. clisp/src compiler.lisp,1.298,1.299 ChangeLog,1.5469,1.5470 (Sam Steingold) ---------------------------------------------------------------------- Message: 1 Date: Sun, 17 Dec 2006 21:59:32 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src dribble.lisp,1.9,1.10 ChangeLog,1.5467,1.5468 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv26213/src Modified Files: dribble.lisp ChangeLog Log Message: (dribble-toggle): open the target file with the :EXTERNAL-FORMAT of the source stream Reported by Pascal Bourguignon <pj...@in...> Index: dribble.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/dribble.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- dribble.lisp 13 May 2004 16:51:55 -0000 1.9 +++ dribble.lisp 17 Dec 2006 21:59:28 -0000 1.10 @@ -23,7 +23,7 @@ (defun dribble-stream-p (obj) (not (null (dribble-stream obj)))) ;; should this be integrated into CLOS and the rest of CLISP? ;; right now DRIBBLE-STREAM is not a recognizable subtype of TWO-WAY-STREAM. -;; should it be? should is be printed specially? +;; should it be? should it be printed specially? (deftype dribble-stream () '(satisfies dribble-stream-p)) (defun check-dribble-stream (obj caller) (loop @@ -51,12 +51,13 @@ (values source target))) (if file ; not dribbling (let ((target - (if (and (streamp target) - (open-stream-p file) (output-stream-p file)) - file - (open file :direction :output - :if-exists :append - :if-does-not-exist :create)))) + (if (and (streamp file) + (open-stream-p file) (output-stream-p file)) + file + (open file :direction :output + :external-format (stream-external-format stream) + :if-exists :append + :if-does-not-exist :create)))) (format target (TEXT ";; Dribble of ~S started ") stream) (funcall (date-format) target (multiple-value-list (get-decoded-time))) (terpri target) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5467 retrieving revision 1.5468 diff -u -d -r1.5467 -r1.5468 --- ChangeLog 12 Dec 2006 00:30:14 -0000 1.5467 +++ ChangeLog 17 Dec 2006 21:59:29 -0000 1.5468 @@ -1,3 +1,9 @@ +2006-12-17 Sam Steingold <sd...@gn...> + + * dribble.lisp (dribble-toggle): open the target file with the + :EXTERNAL-FORMAT of the source stream + Reported by Pascal Bourguignon <pj...@in...> + 2006-12-11 Sam Steingold <sd...@po...> fixed bug #[ 1613300 ]: extra space in unreadable output ------------------------------ Message: 2 Date: Mon, 18 Dec 2006 02:29:33 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src init.lisp, 1.257, 1.258 dribble.lisp, 1.10, 1.11 compiler.lisp, 1.297, 1.298 ChangeLog, 1.5468, 1.5469 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv27016/src Modified Files: init.lisp dribble.lisp compiler.lisp ChangeLog Log Message: (date-string): added (dribble-toggle): use it (compile-file): ditto Index: dribble.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/dribble.lisp,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- dribble.lisp 17 Dec 2006 21:59:28 -0000 1.10 +++ dribble.lisp 18 Dec 2006 02:29:26 -0000 1.11 @@ -44,10 +44,8 @@ (if file ; already dribbling (warn (TEXT "Already dribbling ~S to ~S") source target) (progn - (fresh-line target) - (format target (TEXT ";; Dribble of ~S finished ") source) - (funcall (date-format) target (multiple-value-list (get-decoded-time))) - (terpri target) + (format target (TEXT "~&;; Dribble of ~S finished on ~A.~%") + source (date-string)) (values source target))) (if file ; not dribbling (let ((target @@ -58,9 +56,8 @@ :external-format (stream-external-format stream) :if-exists :append :if-does-not-exist :create)))) - (format target (TEXT ";; Dribble of ~S started ") stream) - (funcall (date-format) target (multiple-value-list (get-decoded-time))) - (terpri target) + (format target (TEXT ";; Dribble of ~S started on ~A.~%") + stream (date-string)) (values (make-dribble-stream stream target) target)) (warn (TEXT "Currently not dribbling from ~S.") stream))))) Index: init.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/init.lisp,v retrieving revision 1.257 retrieving revision 1.258 diff -u -d -r1.257 -r1.258 --- init.lisp 28 Nov 2006 04:04:05 -0000 1.257 +++ init.lisp 18 Dec 2006 02:29:26 -0000 1.258 @@ -2053,6 +2053,8 @@ "~1{~5@*~D-~4@*~2,'0D-~3@*~2,'0D ~2@*~2,'0D:~1@*~2,'0D:~0@*~2,'0D~:}")) (defun date-format () (localized 'date-format)) +(defun date-string () + (funcall (date-format) nil (multiple-value-list (get-decoded-time)))) ;; list a directory (defun dir (&optional (pathnames #+(or UNIX WIN32) '("*/" "*"))) Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.297 retrieving revision 1.298 diff -u -d -r1.297 -r1.298 --- compiler.lisp 29 Nov 2006 04:51:14 -0000 1.297 +++ compiler.lisp 18 Dec 2006 02:29:26 -0000 1.298 @@ -65,7 +65,7 @@ sys::closure-name sys::closure-codevec sys::closure-consts sys::fixnump sys::short-float-p sys::single-float-p sys::double-float-p sys::long-float-p - sys::search-file sys::date-format sys::line-number + sys::search-file sys::date-string sys::line-number sys::%funtabref sys::inlinable sys::constant-inlinable sys::module-name sys::*compiling* sys::*compiling-from-file* sys::*inline-functions* @@ -11222,11 +11222,8 @@ (when listing-stream (fresh-line listing-stream) (format listing-stream - (TEXT "Listing of compilation of file ~A~%on ~@? by ~A, version ~A") - input-file - (date-format) - (multiple-value-list (get-decoded-time)) - ;; List (sec min hour day month year ...) + (TEXT "Listing of compilation of file ~A~%on ~A by ~A, version ~A") + input-file (date-string) (lisp-implementation-type) (lisp-implementation-version))) (let ((*compiling* t) (*compiling-from-file* t) Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5468 retrieving revision 1.5469 diff -u -d -r1.5468 -r1.5469 --- ChangeLog 17 Dec 2006 21:59:29 -0000 1.5468 +++ ChangeLog 18 Dec 2006 02:29:27 -0000 1.5469 @@ -1,5 +1,11 @@ 2006-12-17 Sam Steingold <sd...@gn...> + * init.lisp (date-string): added + * dribble.lisp (dribble-toggle): use it + * compiler.lisp (compile-file): ditto + +2006-12-17 Sam Steingold <sd...@gn...> + * dribble.lisp (dribble-toggle): open the target file with the :EXTERNAL-FORMAT of the source stream Reported by Pascal Bourguignon <pj...@in...> ------------------------------ Message: 3 Date: Mon, 18 Dec 2006 02:42:55 +0000 From: Sam Steingold <sd...@us...> Subject: clisp/src compiler.lisp,1.298,1.299 ChangeLog,1.5469,1.5470 To: cli...@li... Message-ID: <E1G...@ma...> Update of /cvsroot/clisp/clisp/src In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv32751/src Modified Files: compiler.lisp ChangeLog Log Message: (c-SYMBOL-MACROLET): uniform message syntax: "declare SPECIAL" Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.298 retrieving revision 1.299 diff -u -d -r1.298 -r1.299 --- compiler.lisp 18 Dec 2006 02:29:26 -0000 1.298 +++ compiler.lisp 18 Dec 2006 02:42:51 -0000 1.299 @@ -5783,7 +5783,7 @@ (push-*denv* other-decls) (dolist (symbol symbols) (if (or (constantp symbol) (proclaimed-special-p symbol)) - (c-error-c (TEXT "~S: symbol ~S is declared special and must not be declared a macro") + (c-error-c (TEXT "~S: symbol ~S is declared SPECIAL and must not be declared a macro") 'symbol-macrolet symbol) (when (memq symbol *specials*) (c-error-c (TEXT "~S: symbol ~S must not be declared SPECIAL and a macro at the same time") Index: ChangeLog =================================================================== RCS file: /cvsroot/clisp/clisp/src/ChangeLog,v retrieving revision 1.5469 retrieving revision 1.5470 diff -u -d -r1.5469 -r1.5470 --- ChangeLog 18 Dec 2006 02:29:27 -0000 1.5469 +++ ChangeLog 18 Dec 2006 02:42:51 -0000 1.5470 @@ -1,5 +1,10 @@ 2006-12-17 Sam Steingold <sd...@gn...> + * compiler.lisp (c-SYMBOL-MACROLET): uniform message syntax: + "declare SPECIAL" + +2006-12-17 Sam Steingold <sd...@gn...> + * init.lisp (date-string): added * dribble.lisp (dribble-toggle): use it * compiler.lisp (compile-file): ditto ------------------------------ ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys - and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV ------------------------------ _______________________________________________ clisp-cvs mailing list cli...@li... https://lists.sourceforge.net/lists/listinfo/clisp-cvs End of clisp-cvs Digest, Vol 8, Issue 7 *************************************** |