Skip to content
Snippets Groups Projects
Commit 74447568 authored by wlott's avatar wlott
Browse files

Use the magic function structure-ref instead of the %primitive.

parent c4a7c011
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.15 1990/11/19 15:00:41 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.16 1990/11/21 10:10:19 wlott Exp $
;;; ;;;
;;; CMU Common Lisp printer. ;;; CMU Common Lisp printer.
;;; ;;;
...@@ -717,7 +717,7 @@ ...@@ -717,7 +717,7 @@
;;; Defstruct code. ;;; Defstruct code.
(defun output-structure (structure stream currlevel) (defun output-structure (structure stream currlevel)
(funcall (or (info type printer (%primitive c::structure-ref structure 0)) (funcall (or (info type printer (structure-ref structure 0))
#'c::default-structure-print) #'c::default-structure-print)
structure stream currlevel)) structure stream currlevel))
......
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