Plaster
New
List
Login
common-lisp
default
shinmera
2021.12.03 22:37:56
(defun foo (a &rest args) (ERROR "FOO")) (defun bar (a &rest args) (ERROR "BAR"))
Raw
Annotate
Repaste
Annotations
common-lisp
default
shinmera
2021.12.03 22:38:07
(when (< 0 (get-universal-time)) (defun foo (a &rest args) (format T "~&~?~%" a args)) (defun bar (a &rest args) (apply 'foo a args)))
Raw
Repaste
common-lisp
default
shinmera
2021.12.03 22:39:31
(load (compile-file "a.lisp")) (load (compile-file "b.lisp")) (bar "a") ; => A function with declared result type NIL returned
Raw
Repaste