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

Fixed broken arg type declaration for FINISH-DEFPRINTER

parent d0f47034
No related branches found
No related tags found
No related merge requests found
......@@ -828,13 +828,13 @@
;;;
;;; Start and finish the the printing of a defprinter function.
;;;
(proclaim '(ftype (function (symbol stream fixnum t) void)
start-defprinter finish-defprinter))
(defun start-defprinter (name stream indent object)
(declare (symbol name) (stream stream) (index 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) (index indent))
(declare (ignore name))
(if *defprint-pretty*
(format stream ">~%~VT" indent)
......
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