uffi/src objects.lisp,1.11,1.12

Update of /pubcvs/uffi/src
In directory boa.b9.com:/tmp/cvs-serv7686/uffi/src

Modified Files:
	objects.lisp 
Log Message:


Index: objects.lisp
===================================================================
RCS file: /pubcvs/uffi/src/objects.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** objects.lisp	31 Mar 2003 19:22:24 -0000	1.11
--- objects.lisp	30 May 2003 18:46:45 -0000	1.12
***************
*** 120,128 ****
  (defsetf deref-pointer deref-pointer-set)
  
! #+(or lispworks (and mcl (not openmcl))) ;; with LW, deref is a character
  (defmacro ensure-char-character (obj)
    obj)
  
! #+(or allegro cmu sbcl scl openmcl)
  (defmacro ensure-char-character (obj)
    `(code-char ,obj))
--- 120,128 ----
  (defsetf deref-pointer deref-pointer-set)
  
! #+(or (and mcl (not openmcl))) ;; with LW, deref is a character
  (defmacro ensure-char-character (obj)
    obj)
  
! #+(or allegro lispworks cmu sbcl scl openmcl)
  (defmacro ensure-char-character (obj)
    `(code-char ,obj))