projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.18.31:
[sbcl.git]
/
src
/
compiler
/
generic
/
utils.lisp
diff --git
a/src/compiler/generic/utils.lisp
b/src/compiler/generic/utils.lisp
index
38fa31c
..
bbe98d2
100644
(file)
--- a/
src/compiler/generic/utils.lisp
+++ b/
src/compiler/generic/utils.lisp
@@
-14,8
+14,8
@@
\f
;;; Make a fixnum out of NUM. (I.e. shift by two bits if it will fit.)
(defun fixnumize (num)
\f
;;; Make a fixnum out of NUM. (I.e. shift by two bits if it will fit.)
(defun fixnumize (num)
- (if (<= #x-20000000 num #x1fffffff)
- (ash num 2)
+ (if (fixnump num)
+ (ash num (1- n-lowtag-bits))
(error "~W is too big for a fixnum." num)))
\f
;;;; routines for dealing with static symbols
(error "~W is too big for a fixnum." num)))
\f
;;;; routines for dealing with static symbols