From 438c1aab549781622a1decfcce83c045ebd79e43 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 30 May 2003 18:46:45 +0000 Subject: [PATCH] r5059: *** empty log message *** --- src/objects.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/objects.lisp b/src/objects.lisp index 02928bd..51a9ce5 100644 --- a/src/objects.lisp +++ b/src/objects.lisp @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Feb 2002 ;;;; -;;;; $Id: objects.lisp,v 1.11 2003/03/31 19:22:24 kevin Exp $ +;;;; $Id: objects.lisp,v 1.12 2003/05/30 18:46:45 kevin Exp $ ;;;; ;;;; This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -119,11 +119,11 @@ an array of TYPE with size SIZE. The TYPE parameter is evaluated." #+mcl (defsetf deref-pointer deref-pointer-set) -#+(or lispworks (and mcl (not openmcl))) ;; with LW, deref is a character +#+(or (and mcl (not openmcl))) ;; with LW, deref is a character (defmacro ensure-char-character (obj) obj) -#+(or allegro cmu sbcl scl openmcl) +#+(or allegro lispworks cmu sbcl scl openmcl) (defmacro ensure-char-character (obj) `(code-char ,obj)) -- 2.34.1