Fix class-map image loading and use the new static smoke methods.
src/smoke-to-clos.lisp
Sun Jan 17 22:04:08 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix class-map image loading and use the new static smoke methods.
indClass() and isDerivedFrom() are now static (r1076132 and also in KDE 4.4).
--- old-smoke/src/smoke-to-clos.lisp 2014-10-30 08:08:45.000000000 +0100
+++ new-smoke/src/smoke-to-clos.lisp 2014-10-30 08:08:45.000000000 +0100
@@ -165,8 +165,13 @@
(push export exports))))
`(progn (check-recompile ,smoke)
,@functions
+ (eval-startup (:compile-toplevel :load-toplevel :execute)
+ ;; FIXME when loading the Lisp image we no longer need to
+ ;; call #'ensure-class, but the class-map needs still
+ ;; to be populated by #'add-id-class-map and #'add-id;
+ ;; For now we ignore the negligible overhead.
+ (make-smoke-classes ,package ,smoke))
(eval-when (:load-toplevel :execute)
- (make-smoke-classes ,package ,smoke)
(ensure-generic-methods ',(hash-table-alist generics)))
,@constants
(eval-when (:load-toplevel :execute)