Changeset 12926
- Timestamp:
- Oct 8, 2009, 1:07:01 PM (15 years ago)
- File:
-
- 1 edited
-
trunk/source/lib/nfcomp.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/nfcomp.lisp
r12922 r12926 1236 1236 ;; space as constants. Refuse to dump other pointers. 1237 1237 (unless (and (zerop (%macptr-type exp)) 1238 ( zerop (%macptr-domain exp)))1238 (<= (%macptr-domain exp) 1)) 1239 1239 (error "Can't dump typed pointer ~s" exp)) 1240 1240 (let* ((addr (%ptr-to-int exp)))
Note:
See TracChangeset
for help on using the changeset viewer.
