diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 11:33:26 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-03-05 11:33:26 +0100 |
| commit | 0c05293147046e0803731383f847a650a5d6cb85 (patch) | |
| tree | f19fff4b773abbf961da86b2c137da77c81491ab | |
| parent | ff9d8fa0492a186354a3ec3b49efed95e36499d1 (diff) | |
Call COLLECT-METHODS at system load-time.
darcs-hash:f8c65b4911752293d595eff5a9e128e7fc02689a
| -rw-r--r-- | Lisp/post-init.lisp | 7 |
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.")) |