/[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.1.2.4.12.1 by camm, Sat Jan 15 16:28:35 2005 UTC revision 1.1.2.4.12.2 by camm, Sat Jan 15 21:24:53 2005 UTC
# Line 236  Line 236 
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)))

Legend:
Removed from v.1.1.2.4.12.1  
changed lines
  Added in v.1.1.2.4.12.2

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