File r38/packages/support/symget.dat artifact dac011a088 part of check-in 3c4d7b69af


% symget.dat
 
(remflag '(remflag1 flag1) 'lose)

(load symget)

(flag '(remflag1 flag1) 'lose)

(setq &symgetsize& 32)
(null (progn
(install-symget 'opmtch      1)  % get pseudo gets
(install-symget 'stat        2)
(install-symget 'infix       3)
(install-symget 'newnam      4)
(install-symget 'array       5)
(install-symget 'alt         6)
(install-symget 'polyfn      7)
(install-symget 'specprn     8)
(install-symget 'dname       9)
(install-symget 'avalue     10)
(install-symget 'formfn     11)
(install-symget 'initl      12)
(install-symget 'psopfn     13)
(install-symget 'rtype      14)
(install-symget 'prifn      15)
(install-symget 'rvalue     16)
(install-symget 'pprifn     17)
(install-symget 'dimension  18)
(install-symget 'simpfn     19)
(install-symget 'klist      20)
(install-symget 'rtypefn    21)
(install-symget 'idvalfn    22)
(install-symget 'kvalue     23)
(install-symget 'switch*    24)
(install-symget 'onep       25)
(install-symget 'zerop      26)
(install-symget 'plus       27)
(install-symget 'times      28)
(install-symget 'quotient   29)
(install-symget 'id2        30)
(install-symget 'intequivfn 31)
                               %   true flags
(install-symflag 'share      0)
(install-symflag 'full       1)
(install-symflag 'nary       2)
(install-symflag 'noncom     3)
(install-symflag 'nospur     4)
(install-symflag 'symmetric  5)
(install-symflag 'opfn       6)
(install-symflag 'nochange   7)
(install-symflag 'nodel      8)
(install-symflag 'noform     9)
(install-symflag 'field     10)
(install-symflag 'delim     11)
(install-symflag 'intfn     12)
(install-symflag 'noncom    13)
(install-symflag 'modefn    14)
(install-symflag 'convert   15)
(install-symflag 'delchar   16)
))


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]