Steel Bank Common Lisp (SBCL)

(print "привет")

(load "c:/testing2.lisp")
 
"привет"
T

(defun expt1 (x n)
    (do ((результат 1)) ; начальное
                        ; значение
        ((= n 0) результат ; условие
                        ; окончания
        (setq результат (* результат x))
        (setq n (- n 1))))

(load "c:/mir.lisp")
 
 
debugger invoked on a SB-C::INPUT-ERROR-IN-LOAD in thread
#<THREAD "main thread" RUNNING {23170329}>:
  READ error during LOAD:
 
    end of file on #<SB-INT:FORM-TRACKING-STREAM for "file c:\\mir.lisp" {23BA80
F9}>
 
    (in form starting at line: 1, column: 0, position: 0)
 
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
 
restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Abort loading file "c:\\mir.lisp".
  1:         Reduce debugger level (to debug level 1).
  2:         Abort loading file "c:\\mir.lisp".
  3:         Exit debugger, returning to top level.
 
(SB-C:COMPILER-ERROR SB-C::INPUT-ERROR-IN-LOAD :CONDITION #<END-OF-FILE {23BAA90
9}> :POSITION 0 :LINE/COL (1 . 0) :STREAM #<SB-INT:FORM-TRACKING-STREAM for "fil
e c:\\mir.lisp" {23BA80F9}>)
0[2]

(load "fi.lisp")
 
debugger invoked on a SB-INT:SIMPLE-FILE-ERROR in thread
#<THREAD "main thread" RUNNING {23170329}>:
  Couldn't load "fi.lisp": file does not exist.
 
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.
 
(LOAD "fi.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :D
EFAULT)
0] 0

 (load "c:/fi.lisp")
While evaluating the form starting at line 12, column 0
  of #P"c:/fi.lisp":
 
debugger invoked on a UNBOUND-VARIABLE in thread
#<THREAD "main thread" RUNNING {23170329}>:
  The variable ==> is unbound.
 
Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.
 
restarts (invokable by number or by possibly-abbreviated name):
  0: [RETRY   ] Retry EVAL of current toplevel form.
  1: [CONTINUE] Ignore error and continue loading file "c:\\fi.lisp".
  2: [ABORT   ] Abort loading file "c:\\fi.lisp".
  3:            Exit debugger, returning to top level.
 
(SB-INT:SIMPLE-EVAL-IN-LEXENV ==> #<NULL-LEXENV>)
0]

(defun s-d ()
    (prog (x y); локальные переменные
          (print '(type number))
          (setq x (read)) ;; чтение первого
          (and (not (numberp x)) (return nil))
          (print '(type number))
          (setq y (read)) ;; чтение второго
          (and (not (numberp y)) (return nil))
          (print (+ x y)) ;; печать суммы
          (print (- x y)))) ;; печать разности