diff --git a/code/sharpm.lisp b/code/sharpm.lisp index c24253b5fa56329d00752a782663eb18586eeda6..65338fd9a021abc31fefcdca8d9d54a4e5808cf7 100644 --- a/code/sharpm.lisp +++ b/code/sharpm.lisp @@ -261,7 +261,7 @@ (cond ((listp body) (unless (symbolp (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 (error "~S is not a defined structure type." (car body))) (unless (c::dd-constructor defstruct)