From e75a694b028cd8f7e378929fe95dd6ca355b1051 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 11 Feb 2008 17:34:57 +0100
Subject: Specialise MAKE-LOAD-FORM for pointer wrappers.

darcs-hash:4a9e629e6e9a9e20d21c80c541e70b4b6a810645
---
 Lisp/libobjcl.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 6b14115..fda484c 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -18,9 +18,10 @@
 (in-package #:mulk.objective-cl)
 
 
-(dolist (subdir '("shared_obj/" "obj/"))
-  (pushnew (merge-pathnames subdir objcl-asdf:*objc-obj-dir*)
-           cffi:*foreign-library-directories*))
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (dolist (subdir '("shared_obj/" "obj/"))
+    (pushnew (merge-pathnames subdir objcl-asdf:*objc-obj-dir*)
+             cffi:*foreign-library-directories*)))
 
 (define-foreign-library libobjcl
   (:unix (:or "libobjcl.so"
-- 
cgit v1.2.3