Permalink
Browse files

Moved fixnump to metatilities-base

darcs-hash:20080527012133-3cc5d-66856f2249a35a398b94edc0c3cc14f6f29b200f.gz
  • Loading branch information...
1 parent 6b6ab6b commit 1698d40188c59c6f3e99a18282debfaaf76060c3 @gwkkwg committed May 27, 2008
Showing with 0 additions and 8 deletions.
  1. +0 −8 dev/utilities/utilities.lisp
@@ -286,14 +286,6 @@ enough to hold the element with the maximum index."
(setf (aref array k) v))
array))
-;;; ===========================================================================
-
-#-MCL ; already has this
-(defun fixnump (arg)
- "Same as (typep arg 'fixnum). A lot of Explorer code was written using this,
-and it's easier to implement it than to change them all."
- (typep arg 'fixnum))
-
;;; ============================================================================
(defun object->string (object)

0 comments on commit 1698d40

Please sign in to comment.