blob: b7b9d994b234bc59f9179ec3b677d086fd61c554 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
;;; -*- mode: lisp; coding: utf-8 -*-
;;; Toilet Lisp, a Common Lisp subset for the Étoilé runtime.
;;; Copyright (C) 2008 Matthias Andreas Benkard.
;;;
;;; This program is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation, either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(in-package #:common-lisp)
(%fset 'test (compile '(sys::%lambda args)))
(ns-log (test 'a 'b 'c))
(%fset 'test2 (compile '(sys::%lambda args args)))
(ns-log (test2 1 2 3))
(%fset 'test3 (compile '(sys::%lambda args (test args))))
(ns-log (test3 1 2 3))
(%fset 'test4 (compile '(sys::%lambda args (progn args args args))))
(ns-log (test4 1 2 3))
(%fset 'test5 (compile '(sys::%lambda args (let ((x args)
(y args))
args x y))))
(ns-log (test5 1 2 3))
(%fset 'test6 (compile '(sys::%lambda args (let ((x 'value-x)
(y 'value-y))
args x y))))
(ns-log (test6 1 2 3))
(%fset 'test7 (compile '(sys::%lambda args (let ((x nil)) (if x 'yes 'no)))))
(ns-log (test7 1 2 3))
(%fset 'test8 (compile '(sys::%lambda args (let ((x 100)) (if x 'yes 'no)))))
(ns-log (test8 1 2 3))
(%fset 'test9 (compile '(sys::%lambda args (if args 'some-args 'no-args))))
(ns-log (test9))
(ns-log (test9 1 2 3))
;; (load "util.lisp")
;; (load "defun-0.lisp")
;; (load "list-functions.lisp")
;; (load "destructuring-bind.lisp")
;; (load "defun-1.lisp")
;; (load "list-functions.lisp")
;; (load "reader.lisp")
;; (load "sharpsign.lisp")
;; (load "control-flow.lisp")
;; (load "types.lisp")
;; (load "numbers.lisp")
;; (load "list-functions-2.lisp")
;; (load "ffi.lisp")
;; (load "Sacla/share.lisp")
;; (load "Sacla/do.lisp")
;; (load "evaluation.lisp")
;; (load "Sacla/share-2.lisp")
;; (load "Sacla/data-and-control.lisp")
;; (load "array.lisp")
;; (load "Sacla/array.lisp")
;; (load "string.lisp")
;; (load "package.lisp")
(setq *system-initialised-p* t)
(in-package #:common-lisp-user)
|
