blakemcbride / lispf4 Goto Github PK

Ex.:  Define some functions and save them as your file MYFILE on the
logical unit 25.
 
        (OPEN 'MYFILE 'O 25)       (this line not needed when your system
                                    uses symbolic file names, or if you let
                                    MAKEFILE prompt you for logical unit
                                    number of MYFILE)
        (CURFILE MYFILE)
        (DE ....]
        (DE ....]
        etc.
        (MAKEFILE 'MYFILE "filename.l" T)

(FILEHEADER MYFILE)
(PRINT '"MYFILE-PACKAGE")
(PRINT '(VERSION 0))
(DEFINEQ
(*
  (SUBR . TIMES))

('(MYFILEFNS MYMAX)
  NIL)

)
(PRINT 'MYFILEFNS)
(RPAQQ MYFILEFNS (MYFILEFNS MYMAX))
(RPAQQ MYFILECOMS "MYFILE-PACKAGE")
(RPAQ MYFILEGENNR 0)
STOP

(FILEHEADER MYFILE)
(PRINT '"MYFILE-PACKAGE")
(PRINT '(VERSION 0))
(DEFINEQ
(*
  (LAMBDA (L)
          (PROG (X)
                (COND ((NULL L) (RETURN NIL)))
                (SETQ X (CAR L))
           LOOP (SETQ L (CDR L))
                [COND ((NULL L) (RETURN X))
                      ((LESSP X (CAR L)) (SETQ X (CAR L]
                (GO LOOP))))

('(MYFILEFNS MYMAX)
  NIL)

)
(PRINT 'MYFILEFNS)
(RPAQQ MYFILEFNS (MYFILEFNS MYMAX))
(RPAQQ MYFILECOMS "MYFILE-PACKAGE")
(RPAQ MYFILEGENNR 0)
STOP