From 8c5db651a2d55a8692b0dd78e37d4c01c4794585 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Thu, 4 Oct 2007 22:03:25 +0200
Subject: Make PRIMITIVE-INVOKE compatible with Allegro CL.

darcs-hash:fbad6db938521eb19fe3bf74ed61ad4577651276
---
 Lisp/constant-data.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Lisp/constant-data.lisp')

diff --git a/Lisp/constant-data.lisp b/Lisp/constant-data.lisp
index e44147c..f637ed5 100644
--- a/Lisp/constant-data.lisp
+++ b/Lisp/constant-data.lisp
@@ -89,8 +89,8 @@
     (flt      . single-float)
     (dbl      . double-float)
     (bool     . boolean)
-    (ptr      . c-pointer)
-    (charptr  . string)))
+    (charptr  . string)
+    (ptr      . c-pointer)))
 
 
 (defparameter *objcl-c-type-map*
-- 
cgit v1.2.3