begin1

api/api.lisp

@@ -205,6 +205,8 @@
             `(api:eval ,@(mapcar #'macro-expand rest)))
            ((eql api:begin)
             `(api:begin ,@(mapcar #'macro-expand rest)))
+           ((eql api:begin1)
+            `(api:begin1 ,@(mapcar #'macro-expand rest)))
            (built-in-unary
             (destructuring-bind (arg) rest
               (case head
@@ -310,6 +312,14 @@
                   ;; specifically eval the rest with the new ram,
                   ;; but NOT the new env
                   (eval-expr-for-p p `(api:begin ,@(cdr rest)) env new-ram))))
+           ((eql api:begin1)
+            (if (null (cdr rest))
+                (eval-expr (car rest) env)
+                (multiple-value-bind (val ignored-env ram)
+                    (eval-expr (car rest) env)
+                  (multiple-value-bind (ignored-val env ram)
+                      (eval-expr-for-p p `(api:begin ,@(cdr rest)) env ram)
+                    (values val env ram)))))
            (built-in-unary
             (destructuring-bind (arg) rest
               (let ((result (ecase head

api/package.lisp

@@ -5,14 +5,14 @@
   (:use :common-lisp)
   ;; QUOTE and NIL are not shadowed, to ease list syntax handling.
   (:shadow #:atom #:car #:cdr #:cons #:eq #:eval #:if #:lambda #:t #:+ #:- #:* #:/ #:=)
-  (:export #:atom #:begin #:car #:cdr #:cons #:current-env #:emit #:eq #:eval #:if #:lambda #:let #:letrec  #:macroexpand #:nil #:quote
+  (:export #:atom #:begin #:begin1 #:car #:cdr #:cons #:current-env #:emit #:eq #:eval #:if #:lambda #:let #:letrec  #:macroexpand #:nil #:quote
            #:t #:+ #:- #:* #:/ #:=))
 
 (defpackage lurk.api.ram
   (:nicknames :api.ram)
   (:use :common-lisp :lurk.api)
   (:shadowing-import-from :lurk.api #:atom #:car #:cdr #:cons #:defmacro #:eq #:eval #:if #:lambda  #:macroexpand #:t #:+ #:- #:* #:/ #:=)
-  (:export #:atom #:car #:cdr #:cons #:current-env #:current-ram #:define #:defmacro #:eq #:eval #:if #:lambda  #:macroexpand #:let #:letrec #:nil #:quote
+  (:export #:atom #:begin #:begin1 #:car #:cdr #:cons #:current-env #:current-ram #:define #:defmacro #:eq #:eval #:if #:lambda  #:macroexpand #:let #:letrec #:nil #:quote
            #:t #:+ #:- #:* #:/ #:=
            #:quasi #:uq #:uqs))