source: trunk/j/src/org/armedbear/lisp/known-functions.lisp @ 9266

Last change on this file since 9266 was 9257, checked in by piso, 16 years ago

Work in progress (tested).

File size: 2.6 KB
Line 
1;;; known-functions.lisp
2;;;
3;;; Copyright (C) 2005 Peter Graves
4;;; $Id: known-functions.lisp,v 1.10 2005-05-25 12:25:57 piso Exp $
5;;;
6;;; This program is free software; you can redistribute it and/or
7;;; modify it under the terms of the GNU General Public License
8;;; as published by the Free Software Foundation; either version 2
9;;; of the License, or (at your option) any later version.
10;;;
11;;; This program is distributed in the hope that it will be useful,
12;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14;;; GNU General Public License for more details.
15;;;
16;;; You should have received a copy of the GNU General Public License
17;;; along with this program; if not, write to the Free Software
18;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
19
20(in-package #:system)
21
22(declaim (ftype (function * symbol) copy-symbol gensym))
23(declaim (ftype (function * symbol) fdefinition-block-name))
24
25(declaim (ftype (function (t t) t) gethash-2op-1ret))
26(declaim (ftype (function (t) symbol) make-keyword))
27
28(declaim (ftype (function * list)
29                backq-list backq-list* backq-append backq-nconc
30                class-precedence-list))
31
32(declaim (ftype (function * cons) backq-cons))
33
34(declaim (ftype (function * string) write-string))
35
36(declaim
37 (ftype (function * t)
38        replace simple-search fill nstring-upcase random
39        ldb-test
40        complex conjugate
41        reduce
42        vector
43        aset
44        oddp
45        bit-and bit-andc1 bit-andc2 bit-eqv bit-ior bit-nand bit-nor
46        bit-not bit-orc1 bit-orc2 bit-xor
47        array-has-fill-pointer-p
48        phase
49        scale-float
50        char-equal
51        string<=
52        simple-typep
53        %make-structure
54        %structure-ref
55        %structure-set
56        caadr
57        %set-cddr
58        neq
59        set
60        every
61        some
62        %svset
63        vectorp
64        pathnamep
65        hash-table-p
66        characterp
67        %failed-aver
68        ))
69
70(declaim
71 (ftype (function * integer)
72        deposit-field dpb logand logcount lognor
73        mask-field
74        numerator denominator
75        boole
76        array-dimension
77        %dpb
78        ))
79
80(declaim (ftype (function character (unsigned-byte 16)) char-code))
81
82(declaim
83 (ftype (function (real real) real)
84        mod rem))
85
86(declaim (ftype (function number rational) rational rationalize))
87
88(declaim (ftype (function * bit) bit sbit))
89
90(declaim (ftype (function * function) make-macro))
91
92(declaim (ftype (function * t) %set-arglist))
93
94(provide '#:known-functions)
Note: See TracBrowser for help on using the repository browser.