/[cmucl]/src/compiler/macros.lisp
ViewVC logotype

Diff of /src/compiler/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by ram, Wed Jun 6 13:54:09 1990 UTC revision 1.6 by ram, Thu Jul 19 14:17:19 1990 UTC
# Line 829  Line 829 
829  ;;;    Start and finish the the printing of a defprinter function.  ;;;    Start and finish the the printing of a defprinter function.
830  ;;;  ;;;
831  (defun start-defprinter (name stream indent object)  (defun start-defprinter (name stream indent object)
832    (declare (symbol name) (stream stream) (type index indent))    (declare (symbol name) (stream stream) (type (or index null) indent))
833    (declare (ignore indent))    (declare (ignore indent))
834    (format stream "#<~S ~X" name (system:%primitive make-fixnum object)))    (format stream "#<~S ~X" name (system:%primitive make-fixnum object)))
835  ;;;  ;;;
836  (defun finish-defprinter (name stream indent)  (defun finish-defprinter (name stream indent)
837    (declare (symbol name) (stream stream) (type index indent))    (declare (symbol name) (stream stream) (type (or index null) indent))
838    (declare (ignore name))    (declare (ignore name))
839    (if *defprint-pretty*    (if (and *defprint-pretty* indent)
840        (format stream ">~%~VT" indent)        (format stream ">~%~VT" indent)
841        (format stream ">")))        (format stream ">")))
842    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5