Bug in compiler/PCL
Describe the bug
Compiler fails to define a method for a class with undefined superclass.
To Reproduce
Save the following code to file:
;;;; clos-bug.lisp
(defclass a (b)
((x :initarg :x :reader x)))
(defmethod print-object ((a a) stream)
(format stream "[~a]" (x a)))
In REPL:
(compile-file "path/to/clos-bug.lisp")
(load "path/to/clos-bug.sse2f")
;; Signals error:
; The slot PCL:CLASS-PRECEDENCE-LIST is unbound in the object
; #<STANDARD-CLASS A {6007B63D}>.
; [Condition of type UNBOUND-SLOT]
;; After abort:
(compile-file "path/to/clos-bug.lisp")
(load "path/to/clos-bug.sse2f")
;; => T
Expected behavior
It should not signal an error the first time.
Desktop (please complete the following information):
- OS: Linux
- Version: 21e