samsaga2 / cl-z80 Goto Github PK

This is SBCL 1.4.14, an implementation of ANSI Common Lisp.
.....

* (ql:quickload "cl-z80")
To load "cl-z80":
  Load 1 ASDF system:
    cl-z80
; Loading "cl-z80"
..
("cl-z80")
*
(defpackage #:example
  (:use #:cl #:cl-z80))
#<PACKAGE "EXAMPLE">
*
(in-package #:example)
#<PACKAGE "EXAMPLE">
*
(asm (org #x4000)
     (dw start 0 0 0 0 0 0))
syntax error (ORG 16384)
NIL
*
(asmproc start
  (ld hl 0)
  (halt))
NIL
*
(asmproc silly-infinite-loop
  (ld a 0)
  (label loop
    (inc a)
    (jp loop)
    (label silly-label))
  (nop)
  (ret))
syntax error (LABEL LOOP (INC A) (JP LOOP) (LABEL SILLY-LABEL))
NIL
*
(asmproc label-namespaces
  (jp silly-infinite-loop.loop)
  (jp silly-infinite-loop.loop.silly-label))
NIL
*
(asmproc lisp-code-inside
  (ld hl 0)
  (ld hl (* 1 2 3 4 5 6))
  (ret))
NIL
*
(asmproc sprite
  (struct x 2 y 2 color 1))
NIL
*
(save-image "test.rom")
label SILLY-INFINITE-LOOP.LOOP.SILLY-LABEL not found
debugger invoked on a SIMPLE-TYPE-ERROR in thread
#<THREAD "main thread" RUNNING {10012E0613}>:
  NIL does not designate a condition class.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

(SB-KERNEL:ALLOCATE-CONDITION NIL)
0] 0

*