archive/src/makepro.lisp

   1 (load "sysdef.lisp")
   2 (load "serror.lisp")
   3
   4 (setq lisp-dir "/d2/wfs/gcl-2.3")
   5 (load (concatenate 'string user::lisp-dir "/cmpnew/collectfn"))
   6
   7
   8 ;(mapcar 'load (directory (concatenate 'string user::lisp-dir "/lsp/*.fn")))
   9 (load "/home/wfs/gcl-2.3/lsp/sys-proclaim.lisp")
  10
  11
  12 (compiler::no-make-proclaims-hack)
  13 (let (*load-verbose*)(mapcar #'(lambda (x) (load x) (print x)) (directory "*.fn")))
  14 (in-package "MAXIMA")
  15 ;; proclaim single valued some functions it does not know about
  16 (proclaim
  17  '(ftype (function (*) t) meval1
  18          quot merror errrjf sort typep inf-signal mread $filename_merge
  19          maclisp-typep SCAN-DIGITS dimension maset1 error cerror
  20          $file_search mtell))
  21
  22
  23 (with-open-file (st "SYS-PROCLAIM.lisp" :direction :output)
  24   (print '(in-package "SERROR") st)
  25   (print '(in-package "MAXIMA") st)
  26   (compiler::make-proclaims st))
  27
  28
  29
  30