/[gcl]/gcl/unixport/init_pre_gcl.lsp.in
ViewVC logotype

Diff of /gcl/unixport/init_pre_gcl.lsp.in

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

revision 1.7 by camm, Mon Mar 7 15:33:41 2005 UTC revision 1.8 by camm, Sun Sep 18 02:49:33 2005 UTC
# Line 21  Line 21 
21    
22   (or lisp::*link-array*   (or lisp::*link-array*
23       (setq lisp::*link-array*       (setq lisp::*link-array*
24             (make-array (ash 1 11)  :element-type 'string-char :fill-pointer 0)))             (make-array (ash 1 11)  :element-type 'character :fill-pointer 0)))
25   (si::use-fast-links t)   (si::use-fast-links t)
26    
27   (let* ((x (append (pathname-directory si::*system-directory*) (list :parent)))   (let* ((x (append (pathname-directory si::*system-directory*) (list :parent)))

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

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