240 |
;(defun allocated-relocatable-pages () |
;(defun allocated-relocatable-pages () |
241 |
; (si::nrbpage)) |
; (si::nrbpage)) |
242 |
|
|
243 |
|
;; FIXME This has to come straight from enum.h. CM 20050114 |
244 |
(defvar *type-list* |
(defvar *type-list* |
245 |
'(cons |
'(cons |
246 |
fixnum bignum ratio short-float long-float complex |
fixnum bignum ratio short-float long-float complex |
247 |
character symbol package hash-table |
character symbol package hash-table |
248 |
array vector string bit-vector |
array vector string bit-vector |
249 |
structure stream random-state readtable pathname |
structure stream random-state readtable pathname |
250 |
cfun cclosure sfun gfun cfdata spice fat-string )) |
cfun cclosure sfun gfun vfun afun closure cfdata spice)) |
251 |
|
|
252 |
|
|
253 |
(defun room (&optional x) |
(defun room (&optional x) |
254 |
(let ((l (multiple-value-list (si:room-report))) |
(let ((l (multiple-value-list (si:room-report))) |