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

same name for class and constructor

Browse source
This commit is contained in:
Helmut Merz 2024-04-21 19:30:10 +02:00
parent 0ba0ef1162
commit 9c56ae475b
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
forge/forge.lisp
View file

@ -4,7 +4,7 @@
(defpackage :scopes/forge
(:use :common-lisp)
(:export #:new-forge-env #:data-stack #:exec))
(:export #:forge-env #:data-stack #:exec))
(in-package :scopes/forge)
@ -13,7 +13,7 @@
:reader data-stack
:accessor data-stack!)))
(defun new-forge-env ()
(defun forge-env ()
(make-instance 'forge-env))
(defun exec (fe code)

2
test/test-forge.lisp
View file

@ -11,7 +11,7 @@
(in-package :scopes/test-forge)
(defun run ()
(let ((fe (scf:new-forge-env))
(let ((fe (scf:forge-env))
(tst (sct:test-suite)))
(test-exec tst fe)
;(format t "~%fe ~a" fe)