~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
mop: Remove &allow-other-keys from methods.
[lisp]
/
mdw-base.lisp
diff --git
a/mdw-base.lisp
b/mdw-base.lisp
index
269b398
..
0b68b8d
100644
(file)
--- a/
mdw-base.lisp
+++ b/
mdw-base.lisp
@@
-37,7
+37,10
@@
#:with-gensyms #:let*/gensyms #:with-places
#:locp #:locf #:ref #:with-locatives
#:update-place #:update-place-after
#:with-gensyms #:let*/gensyms #:with-places
#:locp #:locf #:ref #:with-locatives
#:update-place #:update-place-after
- #:incf-after #:decf-after))
+ #:incf-after #:decf-after
+ #:fixnump)
+ #+cmu (:import-from #:extensions #:fixnump))
+
(in-package #:mdw.base)
;;;--------------------------------------------------------------------------
(in-package #:mdw.base)
;;;--------------------------------------------------------------------------
@@
-124,6
+127,13
@@
(and decls (list (cons 'declare decls)))
forms))))))))
(and decls (list (cons 'declare decls)))
forms))))))))
+#-cmu
+(progn
+ (declaim (inline fixnump))
+ (defun fixnump (object)
+ "Answer non-nil if OBJECT is a fixnum, or nil if it isn't."
+ (typep object 'fixnum)))
+
;;;--------------------------------------------------------------------------
;;; Generating symbols.
;;;--------------------------------------------------------------------------
;;; Generating symbols.