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

revision 1.5.1.1

date: 90/03/27 12:19:07;  author: ram;  state: Exp;  lines added/del: 10/7
Changed the UNKNOWN-FUNCTION structure to be the more general
UNDEFINED-WARNING structure.
parent 591c2634
Branches
Tags
No related merge requests found
...@@ -1133,20 +1133,23 @@ ...@@ -1133,20 +1133,23 @@
;;;; Miscellaneous IR1 structures: ;;;; Miscellaneous IR1 structures:
(defstruct (unknown-function (defstruct (undefined-warning
(:print-function (:print-function
(lambda (s stream d) (lambda (s stream d)
(declare (ignore d)) (declare (ignore d))
(format stream "#<Unknown-Function ~S>" (format stream "#<Delayed-Warning ~S>"
(unknown-function-name s))))) (undefined-warning-name s)))))
;; ;;
;; The name of the unknown function called. ;; The name of the unknown thing.
(name nil :type (or symbol list)) (name nil :type (or symbol list))
;; ;;
;; The number of times this function was called. ;; The kind of reference to Name.
(kind nil :type (or :function :type))
;;
;; The number of times this thing was used.
(count 0 :type unsigned-byte) (count 0 :type unsigned-byte)
;; ;;
;; A list of COMPILER-ERROR-CONTEXT structures describing places where this ;; A list of COMPILER-ERROR-CONTEXT structures describing places where this
;; function was called. Note that we only record the first ;; thing was used. Note that we only record the first
;; *UNKNOWN-FUNCTION-WARNING-LIMIT* calls. ;; *UNDEFINED-WARNING-LIMIT* calls.
(warnings () :type list)) (warnings () :type list))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment