search

Interlisp / medley

The main repo for the Medley Interlisp project. Wiki, Issues are here. Other repositories include maiko (the VM implementation) and Interlisp.github.io (web site sources)
https://Interlisp.org
MIT License
376 stars 19 forks source link

Possible typo in identifier name in `\IPC` macro #1861

Closed hjellinek closed 3 weeks ago

hjellinek commented 4 weeks ago

I noticed a possible mistake in the \IPC macro defined in INTERPRESS.

Notice that most of the code relates to the variable \IPCONSTANTS, but the BOUNDP call is checking the identifier \IPCONSTANDS, with a D. That's not defined in the file, or maybe anywhere.

(DEFMACRO \IPC (X)
   (DECLARE (SPECIAL X))                                     (* ; "Edited  2-May-2023 08:33 by lmm")
   [OR (AND (BOUNDP '\IPCONSTANDS)
            (LISTP \IPCONSTANTS))
       (SETQ \IPCONSTANTS (FOR X IN IPCONSTANTS JOIN (FOR Y IN (EVAL X)
                                                        COLLECT (CONS (CAR Y)
                                                                      (CADR Y]
   (FOR I FROM 1 TO 10 DO (IF (EQUAL X (SETQ X (SUBLIS \IPCONSTANTS X)))
                              THEN (RETURN (LIST 'CONSTANT X))) FINALLY (ERROR "too many \IPC levels"
                                                                               X)))