From f2927707a802a4518e86ea1f561373a87a0f4f7d Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 20 Feb 2008 17:32:08 +0100 Subject: Collect and register all known Objective-C classes at load time. darcs-hash:13dc5d5f8a456e4603e7ced00cf52b3e01e273c2 --- Lisp/post-init.lisp | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 Lisp/post-init.lisp (limited to 'Lisp/post-init.lisp') diff --git a/Lisp/post-init.lisp b/Lisp/post-init.lisp new file mode 100644 index 0000000..6585bb9 --- /dev/null +++ b/Lisp/post-init.lisp @@ -0,0 +1,23 @@ +;;;; Objective-CL, an Objective-C bridge for Common Lisp. +;;;; Copyright (C) 2007 Matthias Andreas Benkard. +;;;; +;;;; This program is free software: you can redistribute it and/or +;;;; modify it under the terms of the GNU Lesser General Public License +;;;; as published by the Free Software Foundation, either version 3 of +;;;; the License, or (at your option) any later version. +;;;; +;;;; This program is distributed in the hope that it will be useful, but +;;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;;; Lesser General Public License for more details. +;;;; +;;;; You should have received a copy of the GNU Lesser General Public +;;;; License along with this program. If not, see +;;;; . + +(in-package #:mulk.objective-cl) + +(eval-when (:load-toplevel) + (format t "~&Collecting Objective-C classes.") + (collect-classes) + (format t "~&All Objective-C classes collected.")) -- cgit v1.2.3