;
;           |\___/|
;           )     (             .              '
;          =\     /=
;            )===(       *
;           /     \
;           |     |   Are we consing yet?
;          /       \
;          \       /
;   jgs_/\_/\__  _/_/\_/\_/\_/\_/\_/\_/\_/\_/\_
;   |  |  |  |( (  |  |  |  |  |  |  |  |  |  |
;   |  |  |  | ) ) |  |  |  |  |  |  |  |  |  |
;   |  |  |  |(_(  |  |  |  |  |  |  |  |  |  |
;   |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
;   |  |  |  |  |  |  |  |  |  |  |  |  |  |  |
;
; Dedicated output stream setup (port 39079)
; Redirecting all output to this MREPL
; SLY 1.0.43 (#<MREPL mrepl-1-1>)
CL-USER> (ql:quickload :mcclim)
To load "mcclim":
  Load 1 ASDF system:
    mcclim
; Loading "mcclim"
..................................................
.........
(:MCCLIM)
CL-USER> (compile-file "~/Downloads/nicclim.lisp")
; compiling file "~/Downloads/nicclim.lisp" (written 11 NOV 2025 02:17:26 PM):

; file: ~/Downloads/nicclim.lisp
; in: DEFUN RECT-FORMAT1
;     (DEFUN NICCLIM::RECT-FORMAT1 (STREAM NICCLIM::ARG NICCLIM::COLON NICCLIM::AT)
;       (FORMAT STREAM "~{~s~^	~}~%" LIST))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
;   #'(SB-INT:NAMED-LAMBDA NICCLIM::RECT-FORMAT1
;         (STREAM NICCLIM::ARG NICCLIM::COLON NICCLIM::AT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK NICCLIM::RECT-FORMAT1 (FORMAT STREAM "~{~s~^	~}~%" LIST)))
;
; caught STYLE-WARNING:
;   The variable ARG is defined but never used.
;
; caught STYLE-WARNING:
;   The variable COLON is defined but never used.
;
; caught STYLE-WARNING:
;   The variable AT is defined but never used.

; in: DEFUN RECT-FORMAT2
;     (DEFUN NICCLIM::RECT-FORMAT2 (STREAM NICCLIM::ARG NICCLIM::COLON NICCLIM::AT)
;       (FORMAT STREAM "~{~/nic::rect-format1/~}" NICCLIM::ARG))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
;   #'(SB-INT:NAMED-LAMBDA NICCLIM::RECT-FORMAT2
;         (STREAM NICCLIM::ARG NICCLIM::COLON NICCLIM::AT)
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       (BLOCK NICCLIM::RECT-FORMAT2
;         (FORMAT STREAM "~{~/nic::rect-format1/~}" NICCLIM::ARG)))
;
; caught STYLE-WARNING:
;   The variable COLON is defined but never used.
;
; caught STYLE-WARNING:
;   The variable AT is defined but never used.

; in: DEFUN RECT-FILE
;     (DEFUN NICCLIM:RECT-FILE
;            (CLIM:PATH NICCLIM::WIDTH NICCLIM::HEIGHT
;             &OPTIONAL (NICCLIM::DEFAULT NIL) (CLIM:PATH (STRING CLIM:PATH)))
;       "
;   "
;       (WITH-OPEN-FILE
;           (*STANDARD-OUTPUT* CLIM:PATH :DIRECTION :OUTPUT :IF-DOES-NOT-EXIST
;            :CREATE)
;         (FORMAT T "~{~{~s~^	~}~%~}"
;                 (LOOP :REPEAT NICCLIM::HEIGHT
;                       :COLLECT (LOOP :REPEAT NICCLIM::WIDTH
;                                      :COLLECT NICCLIM::DEFAULT)))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
;   #'(SB-INT:NAMED-LAMBDA NICCLIM:RECT-FILE
;         (CLIM:PATH NICCLIM::WIDTH NICCLIM::HEIGHT &OPTIONAL
;          (NICCLIM::DEFAULT NIL) (CLIM:PATH (STRING CLIM:PATH)))
;       (DECLARE (SB-C::TOP-LEVEL-FORM))
;       "
; "
;       (BLOCK NICCLIM:RECT-FILE
;         (WITH-OPEN-FILE
;             (*STANDARD-OUTPUT* CLIM:PATH :DIRECTION :OUTPUT :IF-DOES-NOT-EXIST
;              :CREATE)
;           (FORMAT T "~{~{~s~^	~}~%~}"
;                   (LOOP :REPEAT NICCLIM::HEIGHT
;                         :COLLECT #)))))
;
; caught ERROR:
;   The variable PATH occurs more than once in the lambda list.

; in: DEFUN HORIZONTAL-CAT
;     (END-OF-FILE (NICCLIM::E) T)
;
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; in: DEFUN CLOBBER-RECT
;     (END-OF-FILE (NICCLIM::E) T)
;
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; in: DEFUN BY-MAPNAMES-TO-PIECES
;     (END-OF-FILE (NICCLIM::E) (RETURN NICCLIM::SEQUENCES))
;
; caught STYLE-WARNING:
;   The variable E is defined but never used.

; file: ~/Downloads/nicclim.lisp
; in: DEFUN X
;     (APPLY 'CLIM:EXECUTE-FRAME-COMMAND NICCLIM:*NIC* NICCLIM::ARGS)
;
; caught WARNING:
;   undefined variable: NICCLIM:*NIC*

; in: DEFUN RECT-FORMAT1
;     (FORMAT STREAM "~{~s~^	~}~%" LIST)
;
; caught WARNING:
;   undefined variable: COMMON-LISP:LIST
;
; compilation unit finished
;   Undefined variables:
;     *NIC* LIST
;   caught 1 ERROR condition
;   caught 2 WARNING conditions
;   caught 8 STYLE-WARNING conditions


; wrote ~/Downloads/nicclim.fasl
; compilation finished in 0:00:00.236
#P"/home/ryan/Downloads/nicclim.fasl"
T
T
CL-USER> (load "~/Downloads/nicclim.fasl")
; Debugger entered on #<SB-INT:COMPILED-PROGRAM-ERROR {10063982A3}>
[1] CL-USER>