Minor changes to UNICODE in AutoCAD 2021

manualChair · Jun 8, 2020 · ea5bce1 · ea5bce1
1 parent 53157be
commit ea5bce1
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/characters/characterp.LSP b/characters/characterp.LSP
@@ -17,9 +17,12 @@
 (include 'plusp "./numbers/plusp")
 (include 'multi-byte-char-p "./types/multibyte/multi-byte-char-p")
 
-(defun characterp (item) 
-  (or (plusp *LISPSYS*)
-      (and (integerp item) (<= 0 item) (<= item 255))
-      (multi-byte-char-p item)
-  )
+(setq characterp (if (plusp *LISPSYS*) 
+                   integerp
+                   (lambda (item) 
+                     (or (and (integerp item) (<= 0 item) (<= item 255)) 
+                         (multi-byte-char-p item)
+                     )
+                   )
+                 )
 )