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

Fixed structure describing to use STRUCTURE-REF.

parent 08bf0b05
No related branches found
No related tags found
No related merge requests found
......@@ -199,7 +199,7 @@
(describe (cadr plist)))))
(defun describe-structure (x)
(format t "~&~S is a structure of type ~A." x (svref x 0))
(format t "~&~S is a structure of type ~A." x (c::structure-ref x 0))
(dolist (slot (cddr (inspect::describe-parts x)))
(format t "~%~A: ~S." (car slot) (cdr slot))))
......
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