/[gcl]/gcl/lsp/gcl_autoload.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_autoload.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Fri Jan 14 01:54:20 2005 UTC revision 1.9 by camm, Sat Jan 15 21:25:26 2005 UTC
# Line 240  Line 240 
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)))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26