Skip to content
Snippets Groups Projects
Commit a4b1a6c5 authored by ram's avatar ram
Browse files

Fixed defprinter stuff to not lose when the charpos can't be determined.

parent 74a09916
No related branches found
No related tags found
No related merge requests found
......@@ -829,14 +829,14 @@
;;; Start and finish the the printing of a defprinter function.
;;;
(defun start-defprinter (name stream indent object)
(declare (symbol name) (stream stream) (type index indent))
(declare (symbol name) (stream stream) (type (or index null) indent))
(declare (ignore indent))
(format stream "#<~S ~X" name (system:%primitive make-fixnum object)))
;;;
(defun finish-defprinter (name stream indent)
(declare (symbol name) (stream stream) (type index indent))
(declare (symbol name) (stream stream) (type (or index null) indent))
(declare (ignore name))
(if *defprint-pretty*
(if (and *defprint-pretty* indent)
(format stream ">~%~VT" indent)
(format stream ">")))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment