From bdc0a27be6ce7636addcf7b0054de244859af74e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 13 Mar 2008 19:16:30 +0100
Subject: Make use of the fact that readtables are file-local.

darcs-hash:d07bd4cb573f8d4fa226cca8a1da1e39837b5757
---
 Lisp/libobjcl.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index bcdcd27..e8b66f4 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -16,7 +16,7 @@
 ;;;; <http://www.gnu.org/licenses/>.
 
 (in-package #:mulk.objective-cl)
-#.(enable-type-declaration-syntax)
+#.(in-type-declaration-syntax)
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -1016,6 +1016,3 @@ __enable-method-syntax__.
 #? (or id objective-c-class exception) -> t
 (defun objcl-object-backed-by-lisp-class-p (instance)
   (objcl-object-backed-by-lisp-class-p/pointer (pointer-to instance)))
-
-
-#.(disable-type-declaration-syntax)
-- 
cgit v1.2.3