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

Fixed up DESCRIBE-FUNCTION-PARTS a bit. It still doesn't return any

interesting parts, but at least it doesn't do anything wrong.
parent e2c4e627
No related branches found
No related tags found
No related merge requests found
......@@ -152,16 +152,21 @@
parts-list))))
(defun describe-function-parts (object)
(list (format nil "Function ~s.~%Argument List: ~a." object
(system:%primitive header-ref object
lisp::%function-arg-names-slot)
#|###
(system:%primitive header-ref object
lisp::%function-defined-from-slot)
~%Defined from: ~a
|#
)
t))
(let ((object (if (= (system:%primitive get-vector-subtype object)
system:%function-closure-subtype)
(system:%primitive header-ref object
system:%function-name-slot)
object)))
(list (format nil "Function ~s.~%Argument List: ~a." object
(system:%primitive header-ref object
lisp::%function-entry-arglist-slot)
#|###
(system:%primitive header-ref object
lisp::%function-defined-from-slot)
~%Defined from: ~a
|#
)
t)))
(defun describe-vector-parts (object)
(list* (format nil "Object is a ~:[~;displaced ~]vector of length ~d.~%"
......
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