/[gcl]/gcl/cmpnew/gcl_make_ufun.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_make_ufun.lsp

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

revision 1.4 by camm, Sat Jul 23 08:49:42 2005 UTC revision 1.5 by camm, Sun Sep 18 01:59:13 2005 UTC
# Line 27  Line 27 
27  (defvar eof (cons nil nil))  (defvar eof (cons nil nil))
28  (defvar *Ufun-out*)  (defvar *Ufun-out*)
29    
30  (defvar *str* (make-array 128 :element-type 'string-char :fill-pointer 0))  (defvar *str* (make-array 128 :element-type 'character :fill-pointer 0))
31    
32  (defun make-Ufun (in-files &key (out-file "Ufun_list.lsp"))  (defun make-Ufun (in-files &key (out-file "Ufun_list.lsp"))
33    (with-open-file (*Ufun-out* out-file :direction :output)    (with-open-file (*Ufun-out* out-file :direction :output)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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