DEFINE-CONDITION performs load-time effect at compile-time

[Douglas Katzman]

foo.lisp:
===
(eval-when (:compile-toplevel)
  (assert (not (sb-kernel:find-classoid 'what nil))))

(define-condition what (warning) ())

(defmacro should-this-work-or-not ()
  (print (make-condition 'what))
  '(+ 1 2))

(defun baz () (should-this-work-or-not))
===

* (compile-file "/tmp/foo.lisp")
print #<WHAT {1002B33B43}>

This is a minor issue, but is an obvious inconsistency with how DEFSTRUCT and DEFCLASS work, where there is a clear distinction between the effect of compiling the form versus loading the form.

[Stas Boukarev (stassats)]

About defclass: https://bugs.launchpad.net/sbcl/+bug/310120