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

Added support for byte-code compiled functions.

parent c1b1673f
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.41 1992/04/07 22:56:55 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.42 1992/04/21 04:24:01 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -1746,9 +1746,13 @@ ...@@ -1746,9 +1746,13 @@
(defun output-function (function stream) (defun output-function (function stream)
(print-unreadable-object (function stream :identity t) (print-unreadable-object (function stream :identity t)
(case (get-type function) (case (function-subtype function)
((#.vm:function-header-type #.vm:closure-function-header-type) ((#.vm:function-header-type #.vm:closure-function-header-type)
(output-function-object function stream)) (output-function-object function stream))
(#.vm:byte-code-function-type
(write-string "Byte Compiled Function" stream))
(#.vm:byte-code-closure-type
(write-string "Byte Compiled Closure" stream))
(#.vm:closure-header-type (#.vm:closure-header-type
(cond (cond
((eval:interpreted-function-p function) ((eval:interpreted-function-p function)
...@@ -1757,7 +1761,6 @@ ...@@ -1757,7 +1761,6 @@
(write-string "Closure Over " stream) (write-string "Closure Over " stream)
(output-function-object (%primitive c::closure-function function) (output-function-object (%primitive c::closure-function function)
stream))))))) stream)))))))
;;;; Catch-all for unknown things. ;;;; Catch-all for unknown things.
......
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