LINUX.ORG.RU

История изменений

Исправление SZT, (текущая версия) : 

This is SBCL 1.1.14.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (defun foo (n)
  (declare (type fixnum n))
  (+ n 42))

FOO
* (foo 10) 

52
* (foo 1.1)

debugger invoked on a TYPE-ERROR in thread
#<THREAD "main thread" RUNNING {1002A8AFC3}>:
  The value 1.1 is not of type FIXNUM.

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.

Оно даже с флоатами не хочет, не говоря уж о строках

Исправление SZT, : 

This is SBCL 1.1.14.debian, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (defun foo (n)
  (declare (type fixnum n))
  (+ n 42))

FOO
* (foo 10) 

52
* (foo 1.1)

debugger invoked on a TYPE-ERROR in thread
#<THREAD "main thread" RUNNING {1002A8AFC3}>:
  The value 1.1 is not of type FIXNUM.

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.

Исходная версия SZT, :

This is SBCL 1.1.14.debian, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. * (defun foo (n) (declare (type fixnum n)) (+ n 42))

FOO * (foo 10)

52 * (foo 1.1)

debugger invoked on a TYPE-ERROR in thread #<THREAD «main thread» RUNNING {1002A8AFC3}>: The value 1.1 is not of type FIXNUM.

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.