From 9ca3cce60961b1fd140467a233700a08e7ef65b1 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 8 Jun 2005 23:24:03 +0000 Subject: [PATCH] r10590: convert to :struct-pointer --- src/objects.lisp | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/src/objects.lisp b/src/objects.lisp index cdd3882..6c8a5b6 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -132,13 +132,11 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+(or (and mcl (not openmcl))) obj #+(or allegro cmu sbcl scl openmcl) `(code-char ,obj) ;; lispworks varies whether deref'ing array vs. slot access of a char - #+lispworks - `(if (characterp ,obj) ,obj (code-char ,obj))) + #+lispworks `(if (characterp ,obj) ,obj (code-char ,obj))) (defmacro ensure-char-integer (obj) #+(or (and mcl (not openmcl))) `(char-code ,obj) #+(or allegro cmu sbcl scl openmcl) obj - #+lispworks ;; lispworks varies whether deref'ing array vs. slot access of a char #+lispworks `(if (integerp ,obj) ,obj (char-code ,obj))) -- 2.34.1