/[cmucl]/src/hemlock/abbrev.lisp
ViewVC logotype

Diff of /src/hemlock/abbrev.lisp

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

revision 1.1.1.1 by ram, Fri Jul 13 14:47:02 1990 UTC revision 1.1.1.1.1.1 by wlott, Fri Aug 3 10:16:06 1990 UTC
# Line 510  Line 510 
510               :default (value abbrev-pathname-defaults)               :default (value abbrev-pathname-defaults)
511               :must-exist nil)))               :must-exist nil)))
512    (with-open-file (file (value abbrev-pathname-defaults) :direction :input    (with-open-file (file (value abbrev-pathname-defaults) :direction :input
513                          :element-type 'string-char :if-does-not-exist :error)                          :element-type 'base-character :if-does-not-exist :error)
514      (read-abbrevs file)))      (read-abbrevs file)))
515    
516    
# Line 584  Line 584 
584             :help "Name of the file to write current abbrevs to."             :help "Name of the file to write current abbrevs to."
585             :must-exist nil)))             :must-exist nil)))
586    (with-open-file (file filename :direction :output    (with-open-file (file filename :direction :output
587                          :element-type 'string-char :if-exists :supersede                          :element-type 'base-character :if-exists :supersede
588                          :if-does-not-exist :create)                          :if-does-not-exist :create)
589      (multiple-value-bind (x mode-tables) (count-abbrevs)      (multiple-value-bind (x mode-tables) (count-abbrevs)
590        (declare (ignore x))        (declare (ignore x))
# Line 626  Line 626 
626    
627    
628  (defun write-incremental (mode filename)  (defun write-incremental (mode filename)
629    (with-open-file (file filename :direction :output :element-type 'string-char    (with-open-file (file filename :direction :output
630                            :element-type 'base-character
631                          :if-exists mode :if-does-not-exist :create)                          :if-exists mode :if-does-not-exist :create)
632      (dolist (def *new-abbrevs*)      (dolist (def *new-abbrevs*)
633        (let ((abb (car def))        (let ((abb (car def))

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.1.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5