Return to fcninfo.l CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / lisplib

Annotation of 42BSD/ucb/lisp/lisplib/fcninfo.l, revision 1.1

1.1     ! root        1: (setq rcs-fcninfo-
        !             2:    "$Header")
        !             3: 
        !             4: ;;
        !             5: ;; fcninfo.l                           -[Sat Jan 29 18:21:45 1983 by jkf]-
        !             6: ;;
        !             7: ;; This is normally not loaded into a lisp system but is loaded into
        !             8: ;; the compiler.  
        !             9: ;; number of arguments information for C coded functions
        !            10: ;; not included: evalframe evalhook wait exece
        !            11: ;; stopped in sysat.c after *invmod
        !            12: ;
        !            13: ;; the information is stored in such as way as to minimize the
        !            14: ;; amount of space required to store the informaion.
        !            15: 
        !            16: 
        !            17: (eval-when (compile eval)
        !            18:    (setq cdescrip " defined in C-coded kernel"))
        !            19: 
        !            20: (defmacro decl-fcn-info (tag fcns)
        !            21:    `(let ((fcninfo ',tag))
        !            22:        ,@(mapcar '(lambda (fcn) `(putprop ',fcn fcninfo 'fcn-info)) fcns)))
        !            23: (defmacro zero (&rest args)
        !            24:    `(decl-fcn-info ((0 . 0) ,cdescrip) ,args)) 
        !            25: (defmacro zero-to-one (&rest args)
        !            26:    `(decl-fcn-info ((0 . 1) ,cdescrip) ,args))
        !            27: (defmacro zero-to-two (&rest args)
        !            28:    `(decl-fcn-info ((0 . 2) ,cdescrip) ,args))
        !            29: (defmacro zero-to-inf (&rest args)
        !            30:    `(decl-fcn-info (nil ,cdescrip) ,args))
        !            31: (defmacro one (&rest args)
        !            32:    `(decl-fcn-info ((1 . 1) ,cdescrip) ,args))
        !            33: (defmacro one-to-two (&rest args)
        !            34:    `(decl-fcn-info ((1 . 2) ,cdescrip) ,args))
        !            35: (defmacro one-to-three (&rest args)
        !            36:    `(decl-fcn-info ((1 . 3) ,cdescrip) ,args))
        !            37: (defmacro one-to-inf (&rest args)
        !            38:    `(decl-fcn-info ((1 . nil) ,cdescrip) ,args))
        !            39: (defmacro two (&rest args)
        !            40:    `(decl-fcn-info ((2 . 2) ,cdescrip) ,args))
        !            41: (defmacro two-to-inf (&rest args)
        !            42:    `(decl-fcn-info ((1 . nil) ,cdescrip) ,args))
        !            43: (defmacro three (&rest args)
        !            44:    `(decl-fcn-info ((3 . 3) ,cdescrip) ,args))
        !            45: (defmacro three-to-five (&rest args)
        !            46:    `(decl-fcn-info ((3 . 5) ,cdescrip) ,args))
        !            47: (defmacro three-to-inf (&rest args)
        !            48:    `(decl-fcn-info ((3 . nil) ,cdescrip) ,args))
        !            49: (defmacro four (&rest args)
        !            50:    `(decl-fcn-info ((4 . 4) ,cdescrip) ,args))
        !            51: (defmacro five (&rest args)
        !            52:    `(decl-fcn-info ((5 . 5) ,cdescrip) ,args))
        !            53: 
        !            54: 
        !            55: (zero baktrace fork oblist ptime reset resetio zapline)
        !            56: (zero-to-one arg close drain dumplisp exit
        !            57:    gensym monitor nwritn random return terpr time-string tyipeek)
        !            58: (zero-to-two err ratom read readc tyi)
        !            59: (zero-to-inf + - * / and concat cond
        !            60:    difference greaterp lessp list or plus product prog quotient setq
        !            61:    sum times unconcat)
        !            62: (one  1+ 1- absval add1
        !            63:    aexplode aexplodec aexploden argv
        !            64:    arrayp ascii asin acos atom bcdp
        !            65:    bignum-to-list boundp car cdr chdir cos
        !            66:    dtpr exp fact fake fix float frexp function get_pname getaccess getaux
        !            67:    getd getdata getdelta
        !            68:    getentry getenv getdisc getlength go haulong infile log 
        !            69:    implode intern maknam maknum makunbound minus minusp
        !            70:    not ncons null numberp onep plist pntlen portp ptr 
        !            71:    quote readlist remob *rset sin sizeof stringp sub1 sqrt symbolp
        !            72:    truename type valuep zerop)
        !            73: (one-to-two errset flatc outfile patom print status tyo untyi)
        !            74: (one-to-three fasl load process)
        !            75: (one-to-inf funcall progv)
        !            76: (two  allocate alphalessp
        !            77:    arrayref assq atan bignum-leftshift *catch cons
        !            78:    Divide eq equal freturn
        !            79:    get haipart *invmod lsh
        !            80:    mfunction mod *mod nthelem putaux putd
        !            81:    putdata putdelta putdisc putlength
        !            82:    remprop replace rot rplaca rplacd segment set setarg setplist scons
        !            83:    signal sstatus sticky-bignum-leftshift *throw
        !            84:    vref vrefi-byte vrefi-word vrefi-long)
        !            85:    
        !            86: (two-to-inf  apply def mapc mapcan mapcar mapcon maplist prog2)
        !            87: (three putprop)
        !            88: (three-to-five cfasl)
        !            89: (three-to-inf boole)
        !            90: (four Emuldiv)
        !            91: (five marray)
        !            92: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.