cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

use macros for accessing test suite and forge env objects

Browse source
This commit is contained in:
Helmut Merz 2024-04-20 11:55:16 +02:00
parent b573e49d2c
commit aa065dd283
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
forge/forge.lisp
View file

@ -18,8 +18,8 @@
(pushd fe x) (pushd fe x)
(funcall x fe)))) (funcall x fe))))
(defun data-stack (fe) (defmacro data-stack (fe)
(elt fe 0)) `(elt ,fe 0))
; forge primitives ; forge primitives
@ -29,8 +29,8 @@
; internal definitions ; internal definitions
(defun popd (fe) (defun popd (fe)
(pop (elt fe 0))) (pop (data-stack fe)))
(defun pushd (fe v) (defun pushd (fe v)
(push v (elt fe 0))) (push v (data-stack fe)))

6
testing.lisp
View file

@ -12,7 +12,7 @@
(vector nil)) (vector nil))
(defun assert-eql (tst have wanted) (defun assert-eql (tst have wanted)
(push (eql have wanted) (elt tst 0))) (push (eql have wanted) (result tst)))
(defun result (tst) (defmacro result (tst)
(elt tst 0)) `(elt ,tst 0))