`(if (integerp ,obj) ,obj (char-code ,obj)))
(defmacro ensure-char-storable (obj)
- #+(or lispworks digitool) obj
- #+(or allegro cmu sbcl scl openmcl) `(char-code ,obj))
+ #+(or digitool (and lispworks (not lispworks5))) obj
+ #+(or allegro cmu lispworks5 openmcl sbcl scl)
+ `(char-code ,obj))
(defmacro pointer-address (obj)
#+(or cmu scl)
;;; macptrs" when a saved image is loaded.
;; This may possibly be needed for sbcl's SAVE-LISP-AND-DIE
(defmacro def-pointer-var (name value &optional doc)
- #-openmcl `(defvar ,name ,value ,doc)
+ #-openmcl `(defvar ,name ,value ,@(if doc (list doc)))
#+openmcl `(ccl::defloadvar ,name ,value ,doc))