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

Added %NOTE-TYPE-DEFINED and made %COMPILER-DEFSTRUCT call it.

parent e4628580
No related branches found
No related tags found
No related merge requests found
......@@ -200,7 +200,8 @@
(setf (info type kind name) :structure)
(setf (info type structure-info name) info)
(when (info type expander name)
(setf (info type expander name) nil)))
(setf (info type expander name) nil))
(%note-type-defined name))
;;; ### Should declare arg/result types.
(let ((copier (dd-copier info)))
......@@ -230,6 +231,20 @@
(setf (symbol-function '%compiler-defstruct) #'%%compiler-defstruct)
;;; %NOTE-TYPE-DEFINED -- Interface
;;;
;;; Note that the type Name has been (re)defined, updating the undefined
;;; warnings and SPECIFIER-TYPE cache.
;;;
(defun %note-type-defined (name)
(declare (symbol name))
(when (boundp '*undefined-warnings*)
(note-name-defined name :type))
(when (boundp '*specifier-type-cache-vector*)
(specifier-type-cache-clear))
(undefined-value))
;;;; Dummy definitions of COMPILER-ERROR, etc.
;;;
......
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