From 0c05293147046e0803731383f847a650a5d6cb85 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 5 Mar 2008 11:33:26 +0100
Subject: Call COLLECT-METHODS at system load-time.

darcs-hash:f8c65b4911752293d595eff5a9e128e7fc02689a
---
 Lisp/post-init.lisp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Lisp/post-init.lisp')

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."))
-- 
cgit v1.2.3