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

Changed SHARP-S to use INFO TYPE DEFINED-STRUCTURE-INFO.

parent 61406d79
No related branches found
No related tags found
No related merge requests found
...@@ -261,7 +261,7 @@ ...@@ -261,7 +261,7 @@
(cond ((listp body) (cond ((listp body)
(unless (symbolp (car body)) (unless (symbolp (car body))
(error "Structure type is not a symbol: ~S" (car body))) (error "Structure type is not a symbol: ~S" (car body)))
(let ((defstruct (info type structure-info (car body)))) (let ((defstruct (info type defined-structure-info (car body))))
(unless defstruct (unless defstruct
(error "~S is not a defined structure type." (car body))) (error "~S is not a defined structure type." (car body)))
(unless (c::dd-constructor defstruct) (unless (c::dd-constructor defstruct)
......
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