[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Compiler Error



AI ITS.1168. DDT.1388.
TTY 43
11. Lusers, Fair Share = 73%
1. memory errors in 17.7 hours.
EB$0U EB0$U--Mail--:Postponed
*GAG 0
*:QC

LISP COMPILER 907 [by 906, in LISP 1914]
_TEST

(COMMENT **ERROR**  NIL No free acs - FREEREGAC in function FILE-INFO)
;%%%%%%%% COMPILER ERROR - CALL JONL %%%%%%%% 
;BKPT BARF
47041)   XCT 11   :PRINT EB;DSK:TEST >

(eval-when (eval compile)
   (load '((liblsp) for))
   (setsyntax '/# 'splicing '+internal-/#-macro))

(eval-when (eval compile)
   (defvst file-block
           filepos
           dir-block
           name
           ext
           version
           d-namestring
           d-its-credate
           d-its-credate-atom
           source-namestring
           source-its-credate
           source-credate-atom
           source-num-words
           full-dump-tape-num ; or NIL
           private-tape-block
           last-retrieval-request
           last-retrieval-request-atom
           pending-status ; NIL, (RETRIEVE-AS namestring), (DUMP-ON tape-bloc!
k),
                          ; (DUMP-ON FULL-DUMP)
           valid
             ))

(defmacro concat (x y) `(implode (append (explode ,x)(explode ,y))))

(eval-when (eval compile load)
   (setq file-info-format '(filepos dir-block name ext version d-namestring d!
-its-credate
                                   d-its-credate-atom source-namestring
                                   source-its-credate source-credate-atom
                                   source-num-words full-dump-tape-num
                                   private-tape-block last-retrieval-request
                                   last-retrieval-request-atom
                                   pending-status valid)))

(defun file-info (fb)
   #.`(list
       ,@ (for field in file-info-format
           collect (list (concat 'file-block- field) 'fb))))

*$$0U
AI ITS 1168  Console 43 Free. 04:29:34