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