Undefined function error when calling PRINT-NOTEBOOK-MONTH of CALENDARHACKS #2005
Description
Describe the bug
Calling the CALENDARHACKS function PRINT-NOTEBOOK-MONTH such as (PRINT-NOTEBOOK-MONTH 1 1999 W), where W is a window, breaks with the error:
UNDEFINED-FUNCTION-IN APPLY
In OLDFAULT1:
CAL-X is an undefined function.
To Reproduce
Steps to reproduce the behavior:
- launch Medley
- evaluate
(FILESLOAD CALENDARHACKS) - evaluate
(SETQ W (CREATEW NIL "Month")) - evaluate
(PRINT-NOTEBOOK-MONTH 1 1999 W)
Expected behavior
The calendar month information is displayed in window W with no errors.
Screenshots
The break window:
The full desktop:
Context (please complete the following information):
- Are you using online.interlisp.org? no
- OS: Linux
- OS Version: Mint 22 Cinnamon
- Display/window system: X11 + VNC
- Host arch: x86_64 (System76 Merkaat)
- Maiko version: 511a1b5
IL:MAKESYSDATE: 31-Jan-2025 02:58:12
Additional context
The context:
7_: BTV
FAULTX CAL-X
FAULTARGS (37559)
FAULTAPPLYFLG T
OLDFAULT1
NEWFAULT1
FAULTFN CAL-X
FAULTARGS (37559)
DEF NIL
%%LEXICAL-ENVIRONMENT%% NIL
TRAN NIL
TRANFN NIL
FAULTAPPLY
CAL-X
MONTH 1
YEAR 1999
STREAM {WINDOW}#122,22000
XOFFSET 0
YOFFSET 0
X-SCALE 0.75
Y-SCALE 0.6
DAYFONT {MODERN8-MRR/147,10524}
DATEFONT {CLASSIC12-MRR/147,10672}
TINYDATEFONT {MODERN6-MRR/135,154630}
TITLESTRING "January 1999"
PRINTMONTHIMAGE
MONTH 1
YEAR 1999
X-OFFSET 0
Y-OFFSET 0
X-SCALE 0.75
Y-SCALE 0.6
STREAM {WINDOW}#122,22000
DAYSIZE NIL
DATESIZE NIL
TINYSIZE NIL
OPTIONS NIL
STREAM-EXISTED {WINDOW}#122,22000
PBIGFONT {MODERN8-MRR/147,10524}
PCALFONT {CLASSIC12-MRR/147,10672}
PLITTLEFONT {MODERN6-MRR/135,154630}
PRINT-SCALED-MONTH
MONTH 1
YEAR 1999
STREAM {WINDOW}#122,22000
PRINT-NOTEBOOK-MONTH
*FORM* (PRINT-NOTEBOOK-MONTH 1 1999 W)
*ARGVAL* NIL
*TAIL* NIL
*FN* PRINT-NOTEBOOK-MONTH
\EVALFORM
FAULTEVAL
*FORM* (UNDOABLY (PRINT-NOTEBOOK-MONTH 1 1999 W))
\EVALFORM
\INTERNAL NIL
EVAL
EVAL-INPUT
RETRYFLAG NIL
HELPCLOCK 5392
DO-EVENT
SI::*DUMMY-FOR-CATCH* T
SI::*CATCH-RETURN-FROM* (&)
LISPXHIST ((&) (5 "" . "_ ") "<not yet evaluated>"
NIL)
HELPCLOCK 0
XCL::EXECA0001A0002
*CURRENT-EVENT* ((&) (5 "" . "_ ")
"<not yet evaluated>" NIL)
SI::NLSETQ-VALUE NIL
*PROCEED-CASES* (&)
SI::*NLSETQFLAG* NIL
XCL::EXECA0001
\PROGV
XCL::TOP-LEVEL-P T
XCL::WINDOW {WINDOW}#161,150664
XCL::TITLE-SUPPLIED NIL
XCL::TITLE NIL
*THIS-EXEC-COMMANDS* (#<Hash-Table @ 166,31666>)
XCL::ENVIRONMENT NIL
XCL::PROMPT NIL
XCL::FN EVAL-INPUT
XCL::PROFILE "XCL"
*EXEC-ID* ""
XCL::PROFILE-CACHE (XCL::*PROFILE-NAME* "IL"
XCL:*EVAL-FUNCTION* EVAL *PACKAGE* #<Package INTERLISP>
*READTABLE* #<ReadTable INTERLISP/174,74714>
XCL:*EXEC-PROMPT* "_ " --)
EXEC
\PROC.REPEATEDLYEVALQT
*FORM* (\PROC.REPEATEDLYEVALQT)
*ARGVAL* NIL
*TAIL* NIL
*FN* \PROC.REPEATEDLYEVALQT
\EVALFORM
%#FORM# (\PROC.REPEATEDLYEVALQT)
*CURRENT-PROCESS* #<Process EXEC/174,25204>
HELPFLAG BREAK!
\CURRENTDISPLAYLINE 0
\#DISPLAYLINES 25
\LINEBUF.OFD #<IO Linebuffer Stream/167,115000>
*READTABLE* #<ReadTable INTERLISP/174,74714>
\PRIMTERMTABLE {TERMTABLEP}#174,67740
\PRIMTERMSA {CHARTABLE}#174,70000
TtyDisplayStream #<Output Display Stream/127,147200>
SI::*RESETFORMS* NIL
\INTERRUPTABLE T
\TTYWINDOW NIL
READBUF NIL
\TERM.OFD #<Output Display Stream/170,117300>
*STANDARD-OUTPUT* #<Output Display Stream/170,117300>
*STANDARD-INPUT* #<IO Linebuffer Stream/167,115000>
\MAKE.PROCESS0
T
CAL-X is a macro defined in the same file.
I'm not sure whether PRINT-NOTEBOOK-MONTH accepts a year beyond 1999, or whether only the last 2 digits should be provided.