Fix test CHPTR.4 as noted by Joerg Hoehle
* src/objects.lisp: Remove default from ensure-char-integer
2005-06-09 Kevin Rosenberg (kevin@rosenberg.net)
+ * tests/objects.lisp: Rename from pointers.lisp.
+ Fix test CHPTR.4 as noted by Joerg Hoehle
+ * src/objects.lisp: Remove default from ensure-char-integer
+
+2005-06-09 Kevin Rosenberg (kevin@rosenberg.net)
+ * Version 1.4.38
* src/libraries.lisp: Commit patch from Edi Weitz to
allow plain filename library names to allow underlying
lisp implementation to find foreign libraries in the
(defmacro ensure-char-integer (obj)
#+(or (and mcl (not openmcl))) `(char-code ,obj)
- #+(or allegro cmu sbcl scl openmcl) obj
- `(if (characterp ,obj) (char-code ,obj) ,obj))
+ #+(or allegro cmu sbcl scl openmcl) obj)
(defmacro ensure-char-storable (obj)
#+(or lispworks (and mcl (not openmcl))) obj
(deftest :chptr.4
(let ((native-string "test string"))
(uffi:with-foreign-string (fs native-string)
- (numberp
- (deref-pointer fs :byte))))
+ (integerp
+ (ensure-char-integer
+ (deref-pointer fs :unsigned-char)))))
t)
(deftest :chptr.5