From 9c56ae475b33d6bb5051b9940888f0a009e4758f Mon Sep 17 00:00:00 2001 From: Helmut Merz Date: Sun, 21 Apr 2024 19:30:10 +0200 Subject: [PATCH] same name for class and constructor --- forge/forge.lisp | 4 ++-- test/test-forge.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/forge/forge.lisp b/forge/forge.lisp index 5d250b6..1a80be7 100644 --- a/forge/forge.lisp +++ b/forge/forge.lisp @@ -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) diff --git a/test/test-forge.lisp b/test/test-forge.lisp index b693e87..2676432 100644 --- a/test/test-forge.lisp +++ b/test/test-forge.lisp @@ -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)