summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 11:33:26 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-05 11:33:26 +0100
commit0c05293147046e0803731383f847a650a5d6cb85 (patch)
treef19fff4b773abbf961da86b2c137da77c81491ab /Lisp
parentff9d8fa0492a186354a3ec3b49efed95e36499d1 (diff)
Call COLLECT-METHODS at system load-time.
darcs-hash:f8c65b4911752293d595eff5a9e128e7fc02689a
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/post-init.lisp7
1 files changed, 6 insertions, 1 deletions
diff --git a/Lisp/post-init.lisp b/Lisp/post-init.lisp
index 4648477..ccd2882 100644
--- a/Lisp/post-init.lisp
+++ b/Lisp/post-init.lisp
@@ -18,7 +18,12 @@
(in-package #:mulk.objective-cl)
#+(or)
-(progn
+(eval-when (:load-toplevel :execute)
(format t "~&Collecting Objective-C classes.")
(collect-classes)
(format t "~&All Objective-C classes collected."))
+
+(eval-when (:load-toplevel :execute)
+ (format t "~&Collecting Objective-C methods.")
+ (collect-methods)
+ (format t "~&All Objective-C methods collected."))