From f5920e78a4442f0e323561ddcca52700b0cfeae6 Mon Sep 17 00:00:00 2001 From: kilianmh Date: Wed, 8 May 2024 03:08:04 +0200 Subject: [PATCH] Fix: Compiler note undefined type Define error condition before usage. --- src/locatives/base.lisp | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/src/locatives/base.lisp b/src/locatives/base.lisp index 8dc066b..0017d59 100644 --- a/src/locatives/base.lisp +++ b/src/locatives/base.lisp @@ -57,6 +57,18 @@ calling 40ANTS-DOC/REFERENCE-API:CANONICAL-REFERENCE on it will return the same reference. For extension only, don't call this directly.")) +(define-condition locate-error (error) + ((message :initarg :message :reader locate-error-message) + (object :initarg :object :reader locate-error-object) + (locative :initarg :locative :reader locate-error-locative)) + (:documentation "Signaled by LOCATE when the lookup fails and ERRORP + is true.") + (:report (lambda (condition stream) + (format stream "~@" + (locate-error-locative condition) + (locate-error-object condition) + (locate-error-message condition))))) + (defun locate-error (&rest format-and-args) "Call this function to signal a LOCATE-ERROR condition from a LOCATE-OBJECT generic-function. FORMAT-AND-ARGS contains a format string and @@ -84,18 +96,6 @@ (error 'locate-error :message (locate-error-message e) :object object :locative locative))))) -(define-condition locate-error (error) - ((message :initarg :message :reader locate-error-message) - (object :initarg :object :reader locate-error-object) - (locative :initarg :locative :reader locate-error-locative)) - (:documentation "Signaled by LOCATE when the lookup fails and ERRORP - is true.") - (:report (lambda (condition stream) - (format stream "~@" - (locate-error-locative condition) - (locate-error-object condition) - (locate-error-message condition))))) - (defgeneric locate-and-find-source (object locative-type locative-args) (:documentation