$@!w(J sass $@L$%$%s%W%j%a%s%H(J $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sass pred item a-list func $@O"A[%j%9%H(J a-list$@Cf$K!"Bh(J 1 $@MWAG$,(J item $@$H6&$K>r7o(J pred $@$rK~B-$9$k%Z%"(J $@$,$"$l$P!"$=$N%Z%"$rJV$7!"$J$1$l$P(J func $@$rI>2A$7!"$=$N7k2L$rJV$9!#(J $@!w(J sassq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sassq item a-list func $@O"A[%j%9%H(J a-list$@Cf$K!"Bh(J 1 $@MWAG$,(J item $@$H(J eq $@$J%Z%"$,$"$l$P!"$=$N%Z%"(J $@$rJV$7!"$J$1$l$P(J func $@$rI>2A$7!"$=$N7k2L$rJV$9!#(J <$@Nc(J> (!xx '((a . 1) (b . 2) (c . 3) ((d e) . 4))) (sassq 'a xx (lambda () (!z 5))) -> (a . 1) (sassq 'e xx (lambda () (!z 5))) -> 5 (sassq '(d e) xx (lambda () (!z 5))) -> 5 $@!w(J sassql $@L$%$%s%W%j%a%s%H(J $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sassql item a-list func $@O"A[%j%9%H(J a-list $@Cf$K!"Bh(J 1 $@MWAG$,(J item $@$H(J eql $@$J%Z%"$,$"$l$P!"$=$N(J $@%Z%"$rJV$7!"$J$1$l$P(J func $@$rI>2A$7!"$=$N7k2L$rJV$9!#(J $@!w(J sassqu $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sassqu item a-list func $@O"A[%j%9%H(J a-list $@Cf$K!"Bh(J 1 $@MWAG$,(J item $@$H(J equal $@$J%Z%"$,$"$l$P!"$=$N(J $@%Z%"$rJV$7!"$J$1$l$P(J func $@$rI>2A$7!"$=$N7k2L$rJV$9!#(J <$@Nc(J> (!xx '((a . 1) (b . 2) (c . 3) ((d e) . 4))) (sassqu 'a xx (lambda () (!z 5))) -> (a . 1) (sassqu '(d e) xx (lambda () (!z 5))) -> ((d e) . 4) (sassqu 'f xx (lambda () (!z 5))) -> 5 $@!w(J save-sstatus $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : save-sstatus &opt terno $@%?!<%_%J%k(J terno $@$N>uBV$r%;!<%V$9$k!#(Jterno $@$N4{DjCM$O$3$N4X?t$,F~NO$5(J $@$l$?%?!<%_%J%k!#(J $@!w(J sbit $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sbit bit-array &rest subscripts $@4X?t(J bit $@$HF1$8F/$-$r$9$k!#(J $@%S%C%HG[Ns(J bit-array $@$N!"E:;z(J subscripts $@$K$h$j;XDj$5$l$?%S%C%H$rJV$9!#(J bit-array $@$OC1=c%S%C%HG[Ns$G$J$1$l$P$J$i$J$$!#(J <$@Nc(J> (!x (make-array 3)) -> {vector}77794(common:simple-general-vector . 3) (sbit x 1) -> nil (!y (make-array '(5 5) :element-type 'bit)) -> {applobj}70768(#!array . 10) (sbit y 1 1) -> #0 $@!w(J scale-float $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : scale-float number integer number $@$O!"IbF0>.?tE@!#(J(* number (expt (float b number) integer)) $@$N(J $@7k2L$rJV$9!#(J b $@$O(J number $@$NFbItI=8=$K;H$o$l$k4p?t!#(J <$@Nc(J> (scale-float 1.0 3) -> 8.0 (scale-float -1.0 3) -> -8.0 (scale-float 12.3 2) -> 49.2 $@!w(J schar $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : schar string index string $@$N(J index (0 $@$+$i;O$^$k?t;z(J) $@$N0LCV$NJ8;z$rJV$9!#(Jindex $@$O!"(J string $@$ND9$5$h$j>.$5$/$J$1$l$P$J$i$J$$!#(J <$@Nc(J> (schar "abcdefghij" 0) -> "a" (schar "abcdefghij" 3) -> "d" (schar "asd" 5) -> "" $@!w(J sconc $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sconc &rest string1 string2 ... stringN string1 string2 ... stringN $@$r(J 1 $@$D$NJ8;zNs$K7k9g$7!"$=$N7k2L$rJV$9!#(J <$@Nc(J> (sconc "a" "b") -> "ab" (sconc "123" "45" "6789") -> "123456789" (sconc "abc" nil) -> "abc" $@!w(J screen $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : screen &opt terno $@%?!<%_%J%k(J terno $@$r(J screen $@%b!<%I$K$9$k!#(Jterno $@$N4{DjCM$O$3$N4X?t$,F~NO(J $@$5$l$?%?!<%_%J%k!#(Jscreen $@%b!<%I$K$*$$$F2hLLI=<($O!"(Jterminal $@%9%H%j!<%`(J $@$K(J store $@$5$l$k!#F~=PNO=hM}$OB?>/CY$/$J$k$,!"2hLL$r%U%!%$%k$K$7$?$j!"(J $@%O!<%I%3%T!<$r $@7A<0(J : search seq1 seq2 &key :from-end :test :test-not :key :start1 :end1 :start2 :end2 $@%7!<%1%s%9(J seq1 $@$N(J :start1 $@$+$i(J :end1 $@$^$G$NJ8;z$,!"(Jseq2 $@$N(J :start2 $@$+$i(J :end2 $@$^$G$K4^$^$l$F$$$k$+C5$7!"$"$l$P(J seq2 $@$N:8C<(J (:from-end $@$G(J nil $@$G$J$$CM$,;XDj$5$l$?>l9g$O1&C<(J) $@$NMWAG$NE:;zHV9f$rJV$7!"$J$+$C$?>l(J $@9g$O(Jnil $@$rJV$9!#(J <$@Nc(J> (search '(b c) '(a b c d e)) -> 1 (search '(a b c) '(a b c d e) :start1 2 :end1 3) -> 2 (serch '(a b c) '(a b c d e d c b a) :start1 2 end1 3 :start2 3 end2 7) -> 6 $@!w(J second $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : second list list $@$N(J 2 $@HVL\$NMWAG$NCM$rJV$9(J ($@:G=i$NMWAG$,(J 1 $@HVL\(J)$@!#(J <$@Nc(J> (second '(a b c)) -> b $@!w(J select $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : select item (case1 form11 form12 ...) (case2 form21 form22 ...) ... $@=g$K(J case1 case2 ... $@$,(J item $@$H(J eq $@$+$I$&$+D4$Y!":G=i$K(J eq $@$K$J$C$?(J $@8e$N%U%)!<%`$r=g$KI>2A$7!"7k2L$rJV$9!#0lHV:G8e$N(J caseK $@$r(J t $@$^$?$O(J otherwise $@$K;XDj$7!"$=$l$^$G$NA4$F$,!"(Jeq $@$G$J$+$C$?;~$O!"$=$N8e$K$/$k(J $@%U%)!<%`$rL5>r7o$KI>2A$9$k!#3F(J casei $@$O(J item $@$HHf3S$5$l$kA0$KI>2A$5$l$k!#(J casej $@$,%j%9%H$N$H$-$K$O(J eq $@$N$+$o$j$K(J memq $@$G%F%9%H$r9T$J$&!#(J <$@Nc(J> (select 3 ((3 4) 'abc) (t 'xyz)) -> abc (select 'd ((a) "a") ((b) "b") ((c) "c")) -> (unbound-variable a) $@!w(J selector $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : selector item fn (case1 form11 form12 ...) (case2 form21 form22 ...) ... selector $@$O(J selectq $@$HF1$8!#$?$@$7(J selector $@$G$O!"(Jeq $@$NBe$o$j$K(J equal greaterp, string-lessp, $@$J$I$,MxMQ$G$-$k!#(J <$@Nc(J> (selector 1 'greaterp (1 "1") (2 "2") (t "3")) -> "3" $@!w(J selectq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : selectq item (case1 form11 form12 ...) (case2 form21 form22 ...) ... $@=g$K(J case1 case2 ... $@$,(J item $@$H(J eq $@$+$I$&$+D4$Y!":G=i$K(J eq $@$K$J$C$?(J $@8e$N%U%)!<%`$r=g$KI>2A$7!"7k2L$rJV$9!#0lHV:G8e$N(J caseK $@$r(J t $@$^$?$O(J otherwise $@$K;XDj$7!"$=$l$^$G$NA4$F$,!"(Jeq $@$G$J$+$C$?;~$O!"$=$N8e$K$/$k(J $@%U%)!<%`$rL5>r7o$KI>2A$9$k!#(Jcasej $@$,%j%9%H$N$H$-$K$O(J eq $@$N$+$o$j$K(J memq $@$G%F%9%H$r9T$J$&!#(J <$@Nc(J> (selectq 'a (c (!x 1)) (b (!x 2)) (a (!x 3))) -> 3 (selectq 'a ((p q r) (!x 1)) ((a b c) (!x 2))) -> 2 (selectq (car x) ((end terminate) (do-closing-work)) (break (enter-break-mode)) (inq (reply-to-inquiry (cdr x))) (update (update-data (cdr x))) (otherwise (report-error)) ) $@!w(J selectq-every $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : selectq-every item (case1 form11 form12 ... form1N) (case2 form21 form22 ... form2N) ... $@=g$K(J case1 case2 ... $@$,(J item $@$H(J eq $@$+$I$&$+D4$Y!"(Jeq $@$K$J$kA4$F$r(J $@A*$S!"BP1~$9$k%U%)!<%`$rI>2A$7!":G8e$N%U%)!<%`$NI>2A7k2L$rJV$9!#0lHV(J $@:G8e$N(J caseK $@$r(J t $@$^$?$O(J otherwise $@$K;XDj$7!"$=$l$^$G$NA4$F$,!"(Jeq $@$G(J $@$J$+$C$?;~$O!"$=$N8e$N%U%)!<%`$rL5>r7o$KI>2A$9$k!#(Jcasej $@$,%j%9%H$N$H$-(J $@$K$O(J eq $@$N$+$o$j$K(J memq $@$G%F%9%H$r9T$J$&!#(J <$@Nc(J> (selectq-every 'a (a (!x 1)) (b (!x 2)) (c (!x 3)) (a (!y 4))) -> 4 x = 1, y = 4 $@!w(J self-eval-form-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : self-eval-form-p arg arg $@$,(J self-eval $@<0$J$i$P(J t $@!"$=$&$G$J$1$l$P(J nil$@$rJV$9!#(Jself-eval $@<0$H(J $@$O!"(Jnil$@!"(Jnumber, string, codnum, keyword, vector applobj $@$GA4$F$G$"$k!#(J <$@Nc(J> (self-eval-form-p 123) -> t (self-eval-form-p "hihihi") -> t (self-eval-form-p #expr) -> t (self-eval-form-p 'a) -> nil (self-eval-form-p '(1 2 3)) -> nil $@!w(J selfass-cons $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : selfass-cons object1 object2 cons $@$HF1$8$@$,<+8JEjF~<0$r:n$k$N$KMQ$$$i$l$k!#(J <$@Nc(J> (selfass-cons 'func (list 'x (assignee-cons 'y))) -> (!!func x !y) $@!w(J selfass-list $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : selfass-list &rest x list $@$HF1$8$@$,<+8JEjF~<0$r:n$k$N$KMQ$$$i$l$k!#(J <$@Nc(J> (selfass-list 'func 'x '(assignee-cons 'y)) -> (!!func x !y) (selfass-list 'hana (assign-cons 'sakura 'tsubaki)) -> (!!hana (!sakura . tsubaki)) $@!w(J selfassp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : salfassp arg arg $@$,<+8JEjF~<0$J$i!"$=$l$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J <$@Nc(J> (selfassp '(!!cons 1234 !x)) -> (!!cons 1234 !x) $@!w(J semaphore $@%/%i%9(J <$@@bL@(J> CPU $@$,!"$?$@(J 1 $@$D$NF~=PNO%j%=!<%9$r;}$C$F$$$k>l9g$K!"(J2 $@$D$N%W%m%;%9(J P $@$H(J Q $@$,!"$=$N%j%=!<%9$rMW5a$7$?$H$9$k!#$3$N>l9g(J P $@$H(J Q $@$,$=$N%j%=!<%9(J $@$r6&M-$9$k$3$H$OIT2DG=!#(J P $@$H(J Q $@$O!"GSB>E*$K<+?H$@$1$G%j%=!<%9$r;H$o$J(J $@$1$l$P$J$i$J$$!#%;%^%U%)$O!"$3$N$h$&$K!"%j%=!<%9$N8_$$$KGSB>E*$J;HMQ$N(J $@$?$a$N:G$b4pK\E*$J%D!<%k!#(JTAO $@$G$O!"%;%^%U%)$O!"%/%i%9(J SEMAPHORE $@$N(J $@%$%s%9%?%s%9$H$7$FDs6!$5$l!"(J3 $@$D$N%$%s%9%?%s%9JQ?t(J :name sys:semaphore-process-queue :process $@$r$H$k!#(J:name $@$NCM$O!"%;%^%U%)$N(J $@L>A0$rI=$9!#%W%m%;%9$K$OJ#?t$N%;%^%U%)$,B8:_$9$k2DG=@-$b$"$k$N$G!"L>A0(J $@$,I,MW!#(J:process $@$NCM$O!"%;%^%U%)$r@jM-$7$F$$$k%W%m%;%9$rI=$9!#(J $@!w(J semi-globals $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : semi-globals &rest 'var var $@$,;XDj$5$l$?;~$O!"$=$l$i$r%;%_%0%m!<%P%kJQ?t$H$7$FDj5A$7!"(Jnil $@$K(J $@=i4|2=$9$k!#;XDj$5$l$J$$;~$O!"%;%_%0%m!<%P%kJQ?t$NL>A0$HCM$rJV$9!#(J <$@Nc(J> (semi-globals a b c) -> (+ - * / ** ++ // *** *prompt-function* *history-command-over it that +++ /// *screen-out-file* *ansi$caution-type* c b a) a -> nil b -> nil c -> nil $@!w(J send $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : send receiver list-message-and-arg $@%a%C%;!<%8$r%$%s%9%?%s%9$KAw$k!#(Jreceiver $@$G!"%a%C%;!<%8$rA0(J $@$HAw$i$l$?%a%C%;!<%8$K$h$j8F$S=P$5$l$k%a%=%C%I$G;H$o$l$k0z?t$N%j%9%H$r(J $@=q$/!#(J <$@Nc(J> (send 1 '(+ 10)) -> 11 $@!w(J send-class-message $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : send-class-message 'class-name 'message &rest 'args $@%/%i%9%a%C%;!<%8(J message $@$r!"%/%i%9(J class-name $@$XAw$k!#(J <$@Nc(J> (defclass a (q) () ()) -> a (defclass-method (a abc) () (!(cvar q) 10)) -> abc (calss-variable q (class-of 'a)) -> nil (send-calss-message a abc) -> 10 (class-variable 'q (class-of 'a)) -> 10 $@!w(J send-mail $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : send-mail mailbox mail $@%a%$%k(J mail $@$r!"%a%$%k%\%C%/%9(J mailbox $@$KAw$k!#(J <$@Nc(J> (!m-box (make-instance 'mailbox)) -> m-box (send-mail m-box 12345) -> 12345 $@!w(J seq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : seq &resat form1 form2 ... formN form1 form2 ... formN $@$r=g$K x = "enclosed" $@$J$i$P(J (seq (prins "[") (prins x) (prins "]") x) -> "enclosed" [enclosed] $@$r=PNO!#(J $@!w(J seqt $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : seqt &rest form1 form2 ... formN form1 form2 ... formN $@$r=g$KI>2A$7!"(Jt $@$rJV$9!#%m%8%C%/%W%m%0%i%_%s%0(J $@$N:]!"LrN)$D!#(J <$@Nc(J> (!x '(1 2 3)) -> (1 2 3) (seqt (!y (cdr x) (!w (car y))) -> t x = (1 2 3), y = (2 3), w = 2 $@!w(J sequal $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sequal string1 string2 stirng1 $@$H(J string2 $@$rHf3S$7!"0lCW$7$?>l9g!"(Jstring2 $@$NCM$rJV$7!"(J $@$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$O>.J8;z$KJQ49$9$k!#(J <$@Nc(J> (sequal "abc" "abc") -> "abc" (sequal "abc" 'abc) -> "abc" (sequal "abc" 'AbC) -> "abc" (sequal nil nil) -> $@%(%i!<(J (sequal 123 123) -> $@%(%i!<(J $@!w(J sequencep $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : sequencep arg arg $@$,%7!<%1%s%9$J$i(J arg $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J $@!w(J set $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : set x val x $@$K(J val $@$rBeF~$9$k!#(J <$@Nc(J> (!x 'a) -> a, $@$3$3$G(J x = a (set x '(p q r)) -> (p q r) a -> (p q r) (set (car x) 123) -> 123 p -> 123 $@!w(J set-char-bit $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-char-bit char bit flag $@J8;z(J char $@$N%S%C%HB0@-$N$&$A!"(Jbit $@$r%/%j%"$^$?$O%;%C%H$7$?J8;z$N%G!<%?(J $@$rJV$9!#(Jflag $@$,(J nil$@$J$i%/%j%"$7!"(J nil $@0J30$J$i%;%C%H$9$k!#(J <$@Nc(J> (set-char-bit #\c :control t) -> #\control-c (set-char-bit #control-x :control t) -> #\control-x (set-char-bit #control-x :control nil) -> "x" (set-char-bit #\x :meta t) -> "x" $@!w(J set-date $@4X?t(J[#!expr] <$@@bL@(J> $@@>NqF|IU5Z$S;~4V$r@_Dj$9$k!#(J <$@Nc(J> (set-date) System assumes today is 6-Apr-87. Input [date and] time: dd-mmm-yy hh:mm 07-Apr-87 17:31 $@!w(J set-default-keep-generation-count $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-default-keep-generation-count pathname &opt kgc $@%G%#%l%/%H%j(J pathname $@$K$D$$$F!"%U%!%$%k$N@$Be$r$$$/$D$K$9$k$+$r7hDj(J $@$9$k!#Nc$($P!"(Jkgc $@$,(J 3 $@$N$H$-!":G?7%P!<%7%g%s$r4^$a$F$=$l$h$j8E$$(J 3 $@@$(J $@Be$N%P!<%8%g%s$rJ]B8$9$k!#(Jkgc $@$N4{DjCM$O(J 1 $@!#(J <$@Nc(J> (set-default-keep-generation-count "cs:" 3) -> 3 vdir "test.tao" -> test.tao.5 $@:G?7%U%!%$%k$r4^$a$F(J 3 $@@$Be%U%!%$%k$rJ]B8(J .4 .3 $@$3$3$G(J test.tao $@$r99?7$9$k$H!"(J vdir "test.tao" -> test.tao.6 .5 .4 $@!w(J set-difference $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : set-difference list1 list2 &key :test :test-not :key list1 $@$H(J list2 $@$rBPHf$7!"(Jlist1 $@$K$OB8:_$9$k$,(J list2 $@$K$O4^$^$l$F$$$J$$(J $@MWAG$rCj=P$7!"%j%9%H$K$7$FJV$9!#(Jnset-difference $@$OGK2uHG!#(J <$@Nc(J> (set-difference '(1 2 3) '(2 4 6)) -> (1 3) (set-difference '(1 2 3) '(1 2 3)) -> nil $@!w(J set-differenceq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : set-differenceq list1 &rest list2 ... listN list1 $@$K$O4^$^$l$F$$$k$,!"(Jlist2 ... listN $@$K$O4^$^$l$F$$$J$$MWAG$rCj=P(J $@$7!"%j%9%H$K$7$FJV$9!#$?$@$7!"JV$5$l$k%j%9%H$NCf$G=EJ#$7$?MWAG$O!"$=$l(J $@$,(J eq $@$G$"$l$P!"0lJ}$O:o=|$5$l$k!#(Jlist1 $@$G$NMWAG$NJB$S=g=x$HJV$5$l$k(J $@%j%9%H$G$NMWAG$NJB$S=g=x$OI,$:$7$b0lCW$7$J$$!#(J <$@Nc(J> (set-differenceq '(1 2 3 4 5 6 4 2) '(5 3 1)) -> (2 4 6) (set-differenceq '(1 2 3 4 5 6 7) '(1 2) '(3 4) '(2 5)) -> (6 7) $@!w(J set-dispatch-macro-character $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-dispatch-macro-character char1 char2 func &opt readtable $@FI$_9~$_I=(J readtable $@$K%G%#%9%Q%C%AJ8;z$H$7$FEPO?$5$l$F$$$k(J char1 $@$N(J char2 $@$KBP$9$kF~NO%^%/%mDj5A$r4X?t(J func $@$GCV$-49$($k!#(Jchar1 $@$NI=$9J8;z(J $@$r(J X$@!"(Jchar2 $@$NI=$9J8;z$r(J Y $@$H$9$k$H$-!"(Jread $@$,(J "XY" $@$G;O$^$k%G!<%?$r(J $@FI$_9~$`:]$K$O!"F~NO%9%H%j!<%`$H(J char2$@!"(Jnil $@$r0z?t$H$7$F(J func $@$,8F$S(J $@=P$5$l$k!#(J"XnY" $@$G;O$^$k%G!<%?$rFI$_9~$`:]$K$O!$(Jn $@$NI=$9?tCM$,(J func $@$X$NBh(J 3 $@0z?t$H$J$k!#$3$3$G(J n $@$O$"$kHsIi@0?t$N(J 10 $@I=8=$G$"$k!#(J make-dispatch-macro-charactor$@!"(Jget-dispatch-macro-charactor $@;2>H!#(J $@!w(J set-error-function $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-error-function f-name &opt process process $@$K$*$$$F!"(Jf-name $@$r%(%i!JN,$5$l$k$H%+%l%s%H%W%m%;%9$,;H$o$l$k!#(Jf-name $@$O!"0z?t$r(J 3 $@$D$H$j!"(Jx, y, z $@$H$9$k!#(Jx $@$O%(%i!$rI=$9%9%H%j%s%0!#(J y $@$O:G=i$NJd=u(J $@>pJs(J $@!JBgDq$N>l9g!"%(%i!<$,5/$3$C$?4X?t$rI=$9!K!#(J z $@$O(J 2 $@HVL\$NJd=u(J $@>pJs!JBgDq$N>l9g!"%(%i!<$r5/$3$7$?IT@50z?t(J (illegal argument) $@$rI=$9!K!#(J $@!w(J set-exclusive-or $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : set-exclusive-or list1 list2 &key :test :test-not :key list1 $@$^$?$O(J list2 $@$N$$$:$l$+0lJ}$K4^$^$l$F$$$kMWAG$rCj=P$7!"%j%9%H$K(J $@$7$FJV$9!#(Jnset-exclusive-or $@$OGK2uHG!#(J <$@Nc(J> (set-exclusive-or '(1 2 3) '(a b c)) -> (1 2 3 a b c) (set-exclusive-or '(1 2 3) '()) -> (1 2 3) $@!w(J set-in-instance $@4X?t(J[#!macro] $@@bL@(J $@7A<0(J : set-in-instance instance var-name value instance $@$N%$%s%9%?%s%9JQ?t(J var-name $@$KCM(J value $@$r@_Dj$7!"$=$NCM$rJV$9!#(J <$@Nc(J> (defclass a () (x y) () :gettable :settable) -> a (!bb (make-instance 'a x 5 y 6)) -> {udo}43848a [bb x] -> 5 [bb y] -> 6 (set-in-instance bb 'x 10) -> 10 [bb x] -> 10 $@!w(J set-job-name $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-job-name j-name &opt process process $@$K!"%8%g%VL>(J j-name $@$rM?$($k!#(Jprocess $@$,>JN,$5$l$k$H%+%l%s%H(J $@%W%m%;%9$,;H$o$l$k!#(J $@!w(J set-keep-generation-count $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-keep-generation-count pathname &opt kgc $@%U%!%$%k(J pathname $@$,!"%U%!%$%k%7%9%F%`$G2?@$BeJ]B8$5$l$k$+$r7hDj$9$k!#(J $@Nc$($P!"(Jkgc $@$,(J 3 $@$N$H$-!"(Jpathname $@$N:G?7%P!<%7%g%s$r4^$a$F$=$l$h$j8E$$(J 3 $@@$Be$N%P!<%8%g%s$rJ]B8$9$k!#(Jkgc $@$N4{DjCM$O(J 1 $@!#(J <$@Nc(J> (set-keep-generation-count "cs:test.tao" 3) -> 3 vdir "test.tao" -> test.tao.5 $@:G?7%U%!%$%k$r4^$a$F(J 3 $@@$Be%U%!%$%k$rJ]B8(J .4 .3 $@$3$3$G(J test.tao $@$r99?7$9$k$H!"(J vdir "test.tao" -> test.tao.6 .5 .4 $@!w(J set-loc-offset $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : set-loc-offset x y $@%m%C%/%S%C%H(J x $@$N%*%U%;%C%H(J $@$r!"(Jy ($@%a%b%j%V%m%C%/Fb$N8l%"%I%l%9$r<($9(J 0 $@$+$i;O$^$k?t;z(J) $@$K%;%C%H$9$k!#%m%C%/%S%C%H$N%*%U%;%C%H$X$N%"%/%;%9(J $@4X?t$O!"(Jloc-ossset $@!#(J <$@Nc(J> (!a (get-memblk #!8b-memblk 16)) -> {memblk}489557(#!8b-memblk . {dnil}16) (!b (locbit a 10)) -> {locbit}{memblk}489557(#!8b-memblk . {dnil}16) . {dnil}10) (loc-offset b) -> 10 (set-loc-offset b 1) -> {locbit}{memblk}489557(#!8b-memblk . {dnil}16) . {dnil}1) (loc-offset b) -> 1 $@!w(J set-macro-character $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-macro-character char func &opt non-terminating-p readtable char $@$,(J read $@$K$h$C$F8+$D$1$i$l$?;~!"(Jfunc $@$r8F$S=P$9%^%/%mJ8;z$H$J$k(J $@$h$&$K$7!"(Jt $@$rJV$9!#(Jnon-terminating-p $@$,(J $@>JN,$^$?$O(J nil $@$,;XDj$5$l$?(J $@>l9g!"(Jchar $@$OHs=*C<%^%/%mJ8;z!#$9$J$o$A!"3HD%$5$l$?%H!<%/%s$NCf$KAH$_(J $@9~$^$l$k$3$H$,$G$-$k!#(Jget-macro-character $@;2>H!#(J $@!w(J set-priority $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-priority n &opt process process $@$KM%@h=g0L(J n $@$rM?$($k!#(Jprocess $@$,>JN,$5$l$k$H%+%l%s%H%W%m%;%9(J $@$,;H$o$l$k!#(J $@!w(J set-quantum $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-quantunm n &opt process process $@$K(J quantum $@CM(J n $@$rM?$($k!#(Jprocess $@$,>JN,$5$l$k$H%+%l%s%H(J $@%W%m%;%9$,;H$o$l$k!#(J $@!w(J set-syntax-from-char $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J set-syntax-from-char to-char from-char &opt to-readtable from-readtable $@FI$_9~$_I=(J to-readtable $@Cf$N(J to-char $@$r!"FI$_9~$_I=(J from-readtable $@Cf(J $@$N(J from-char $@$HF10l$K$9$k!#(Jto-readtable $@$N4{DjCM$O8=:_$NFI$_9~$_I=(J ($@JQ?t(J *readtable* $@$NCM(J) $@!#(Jfrom-readtable $@$N4{DjCM$O(J nil $@$G!"I8=`$N(J Lisp $@FI$_9~$_I=$+$i$N9=J8$rMQ$$$k$3$H$r0UL#$7$F$$$k!#(J $@!w(J set-sysmode $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-sysmode &key :car-nil-error :cdr-nil-error :one-char-string :common-lisp :negation-as-failure $@%+%l%s%H%W%m%;%9$N=hM}%b!<%I$r%;%C%H$9$k!#(J (1) :car-nil-error $@$,(J nil $@0J30$NCM$J$i!"%U%)!<%`(J (car nil) $@$O%(%i!<(J $@$K$J$k!#(J nil $@$J$i!"(Jnil $@$rJV$9!#4{DjCM$O(J t $@!#(J (2) :cdr-nil-error $@$,(J nil $@0J30$NCM$J$i!"%U%)!<%`(J (cdr nil) $@$O%(%i!<(J $@$K$J$k!#(J nil $@$J$i!"(Jnil $@$rJV$9!#4{DjCM$O(J nil $@!#(J (3) :one-char-string $@$NCM$,(J nil $@0J30$J$i!"%-%c%i%/%?(J "a" $@$O(J "a" $@$H$7$F(J $@FI$^$l$k!#(Jnil $@$J$i!"%-%c%i%/%?(J "a" $@$O(J #\a $@$H$7$FFI$^$l$k!#%-%c%i%/%?(J #\a $@$O!"$3$N0z?t$NCM$,(J nil $@$G$"$m$&$H$J$+$m$&$H(J #\a $@$H$7$FFI$^$l$k!#(J $@4{DjCM$O(J nil $@!#(J (4) :common-lisp $@$NCM$,(J nil $@0J30$J$i!"0J2<$N(J 4 $@$D$N$3$H$,9T$o$l$k!#(J $@-!(J :car-nil-error $@$NCM$O(J nil $@$K$J$k(J $@-"(J :cdr-nil-error $@$NCM$O(J nil $@$K$J$k(J $@-#(J :one-char-string $@$NCM$O(J t $@$K$J$k(J $@-$(J $@F~=PNOGQ4~%k!<%A%s$d%9%H%j%s%0GQ4~%k!<%A%sEy$N (set-sysmode :common-lisp t) -> ok (set-sysmode :car-nil-error t) -> ok $@!w(J sys:set-tage $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sys:set-tage x tage $@%S%C%H$,(J on $@$K$J$j!"(Jx $@$,JV$k!#(J <$@Nc(J> (sys:set-tage nil) -> () (sys:set-tage 100) -> #144 [8$@?J$N(J shortnum $@$K$9$k(J] $@!w(J set-terminal-type $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : set-terminal-type def-type $@%f!<%6$K(J terminal $@%?%$%W$r $@7A<0(J : setf &rest place datum datum $@$,(J place $@$K3JG<$5$l$k!#(Jdatum $@$r3JG<$G$-$k>l=j$r<($7$&$k4X?t$K!"(J car,cdr, cadr,nth,first,symbol-value,nthv,array,shead,substring $@Ey$,(J $@$"$k!#$3$l$i$N4X?t$O(J setf $@$N:G=i$N0z?t$H$7$F;HMQ2DG=!#(J TAO $@$G$O!"(Jsetf $@$NBe$o$j$K%9%Z%7%c%k%7%s%\%k%^%/%m(J ! $@$r;H$&J}$,NI$$!#(J <$@Nc(J> (setf x 1 y 2) -> 2 x = 1, y = 2 (setf x '((a b) (c d) (e f))) -> ((a b) (c d) (e f)) (setf y "qwertyu") -> "qwertyu" (setf (cadr x) '(1 2 3)) -> (1 2 3) x -> ((a b) (1 2 3) (e f)) (setf (stail y 3) "asdfg") -> "asdfg" y -> "qweasdf" $@!w(J setq $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : setq &rest x1 val1 x2 val2 ... $@$^$:(J val1 $@$rI>2A$7$=$N7k2L$r(J x1 $@$K3JG<$9$k!#2A$7$=$N7k2L(J $@$r(J x2 $@$K3JG<$9$k!#(J ... $@$=$7$F!"BeF~$5$l$?:G8e$NCM$rJV$9!#(J setq $@$h$j(J ! $@$N$[$&$,B.$$!#(J <$@Nc(J> (setq x 1 y 2 z 3) -> 3 x = 1, y = 2 , z = 3 (setq x (+ y z) y (+ z x) z (+ x y)) -> 13 x = 5, y = 8 ,z = 13 $@!w(J seventh $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : seventh list list $@$N(J 7 $@HVL\$NMWAG$NCM$rJV$9(J ($@:G=i$NMWAG$,(J 1 $@HVL\(J)$@!#(J <$@Nc(J> (seventh '(0 1 2 3 4 5 6 7 8)) -> 6 $@!w(J sg-value $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sg-value var $@%;%_%0%m!<%P%kJQ?t(J var $@$NCM$rJV$9!#(J <$@Nc(J> (semi-globals abc) -> (+ - * / ** \++ // *** *prompt-function* *history-command-overwrite* it that \*** /// *screen-outfile* *ansi$caution-type* abc) (!abc '(a b c)) -> (a b c) (sg-value 'abc) -> (a b c) $@!w(J shadow $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : shadow symbol &opt package symbol $@$HF1$80u;zL>$N%7%s%\%k$,(J package $@$KB8:_$7$J$1$l$P?7$7$$%7%s%\%k(J $@$r$3$N0u;zL>$G@8@.$7!"(Jpackage $@$KA^F~$7!"(Jt $@$rJV$9!#@8@.$5$l$?%7%s%\%k$O(J package $@$,%f!<%9$9$k%Q%C%1!<%8$K$"$kF10l0u;zL>$N30It%7%s%\%k$r%7%c%I%&(J $@$9$k!#(J <$@Nc(J> (shadow 'if) -> t (de if (x) (cond ((zerop x) i) (t (* x (if (1- x)))))) -> if (if 0) -> 1 (if 2) -> 2 $@!w(J shadowing-import $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : shadowing-import symbol &opt package import $@$HF1$8A`:n$r9T$J$&$,(J symbol $@$,(J package $@Cf$K$9$G$K%"%/%;%92DG=$J(J $@%7%s%\%k$r%7%c%I%&$9$k$h$&$J>l9g$G$"$C$F$b%(%i!<$r7Y9p$7$J$$E@$,0[$J$k!#(J symbol $@$r(J package $@$NFbIt%7%s%\%k$H$7$FEPO?$7!"(Jt $@$rJV$9!#(J symbol $@$HF1$8(J $@0u;zL>$N%7%s%\%k$,4{$K%Q%C%1!<%8$K$"$l$P!"$=$N%7%s%\%k$r(J unintern $@$9$k!#(J symbol $@$O(J package $@$,%f!<%9$9$k%Q%C%1!<%8$KEPO?$5$l$F$$$kF10l0u;zL>$N(J $@30It%7%s%\%k$r%7%c%I%&$9$k!#(J <$@Nc(J> (!x 10) (import sys:x) -> Name confilict! x x -> $@%(%i!<(J (sys:with-privilege (!x 20)) -> 20 (sys:with-privilege (!window:x)) -> 30 (window:x) -> 30 (sys:x) -> 20 x -> 20 (shadowing-import window:x) -> t x -> 30 $@!w(J shead $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : shead object &opt n n >= 0 $@$N$H$-$O!"(Jobject $@$N:G=i$N(J n $@J8;z$+$i@.$kItJ,%9%H%j%s%0$r:n@.$7!"(J $@$=$N7k2L$rJV$9!#(J n < 0 $@$N$H$-$O!"(Jobject $@$N:G8e$N(J n $@J8;z$+$i@.$kItJ,%9%H%j%s%0$r:n@.$7!"(J $@$=$N7k2L$rJV$9!#(J n $@$N4{DjCM$O(J 1$@!#(J object $@$O%9%H%j%s%0$^$?$O%"%H%`!#(J <$@Nc(J> (shead "head") -> "h" (shead 'head 2) -> "he" (shead 'string) -> "s" (shead "larger" -3) -> "ger" (shead "short" 10) -> "short" (shead "abc" 0) -> "" (shead "" 3) -> "" $@!w(J shift# $@%m%+%F%#%V%*%Z%l!<%?(J <$@@bL@(J> $@7A<0(J : loc shift# n loc $@$K$D$$$FO@M}%7%U%HA`:n$r9T$&!#(J n $@$G:8$X2?%S%C%H%7%U%H$5$l$k$+$,(J $@;XDj$5$l$k!#(J <$@Nc(J> (signed-integer-locatives p q r s) -> (p q r s) (p <- #5252) -> 2730 (s <- (p shift# 1 )) -> 5461 (#12524) (s <- (p shift# 2 )) -> 1365 (#2525) $@!w(J shiftf $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : shiftf &rest x1 x2 ... xn value x1 x2 x3 ... value $@$rI>2A$7!"3FCM$r1&$+$i:8$K%7%U%H$9$k!#(J x2 $@$NCM$O!"(Jx1 $@$K3JG<$5$l!"(J... value $@$O(J xn$@$K3JG<$5$l!"(Jx1 $@$N$b$H$NCM$,(J $@JV$5$l$k!#(J <$@Nc(J> (setq x (list 'a 'b 'c)) -> (a b c) (shiftf (cadr x ) 'd) -> b x -> (a d c) (!x '(1 a b c)) -> (1 a b c) (shiftf (car x) (cadr x) (caddr x) (cadddr x) 'd) -> 1 x -> (a b c d) $@!w(J short-float-epsilon $@Dj?t(J <$@@bL@(J> $@%7%9%F%`$G=hM}$7F@$k:G>.$NIi$N(J short-float $@$,3JG<$5$l$F$$$k(J $@%7%9%F%`Dj?t$G$"$j!"K\%7%9%F%`$G$O!"(J5.72204e-6$@!#(J $@!w(J short-float-negative-epsilon $@Dj?t(J <$@@bL@(J> $@%7%9%F%`$G=hM}$7F@$k:G>.$NIi$N(J short-float $@$,3JG<$5$l$F$$$k(J $@%7%9%F%`Dj?t$G$"$j!"K\%7%9%F%`$G$O!"(J3.8147e-6$@!#(J $@!w(J short-site-name $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : short-site-name $@%3%s%T%e!<%?%O!<%I%&%'%"$NJ*M}E*$J0LCV$r<1JL$9$kJ8;zNs$rC;$$L>A0$GJV$9!#(J ELIS $@%7%9%F%`$G$O!"(J"NUE group" $@$,JV$k!#(J <$@Nc(J> "NUE group" "MIT AI Lab" "CMU-CSD" $@!w(J shortfloatp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : shortfloatp number number $@$,(J shortfloat $@$J$i!"(Jnumber $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (shortfloatp 3.6) -> 3.6 (shortfloatp 3.6f0) -> nil (shortfloatp 23/37) -> nil (shortfloatp 10) -> nil $@!w(J shortnump $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : shortnump number number $@$,(J shortnum ( -2**23 $@$+$i(J 2**23-1) $@$J$i$P!"(Jnumber $@$rJV$7!"$=$l(J $@0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (shortnump 1) -> 1 (shortnump -8388608) -> -8388608 (the smallest shortnum) (shortnump 8388607) -> 8388607 (the largest shortnum) (shortnump 12345678) -> nil $@!w(J show-bit-vector $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : show-bit-vector arg arg $@$,%S%C%H%Y%/%?$G$"$l$P!"$=$N%S%C%H%Y%/%?$N3FMWAG$NCM$rJV$9!#(J <$@Nc(J> (!m (make-array 5 :element-type 'bit)) -> {memblk}488998(#!1b-memblk . {dnil}5) (show-bit-vector m) -> (#0 #0 #0 #0 #0) (!(aref m 1) '1) -> 1 (show-bit-vector m) -> (#0 #1 #0 #0 #0) (!a (64b-unsigned)) -> a (a <- 0) -> #0 (show-bit-vector a) -> (#0 #0 #0 .... #0) (#0 $@$,(J 64$@8D(J) (!c (array #!1b-memblk 6)) -> {applobj}51002(#!array . 8) (show-bit-vector c) -> (#0 #0 #0 #0 #0 #0) $@!w(J show-class $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : show-class class class $@$N%/%i%9%Y%/%?$NFbMF$rI=<($9$k!#(J <$@Nc(J> (defclass abc () ((a 1) (b 2)) () :gettable :settable) -> abc (show-class 'abc) ($@%/%i%9%Y%/%?$NFbMF$rI=<((J) $@!w(J show-class-variables $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : show-class-variables class class $@$N%/%i%9JQ?t$NFbMF$rI=<($9$k!#(J <$@Nc(J> (defclass test () ((a 1) (b 2)) () :gettable :settable) -> test (show-class-variables test) -> No class vars for test t (defclass abc (x) ((a 1) (b 2)) () :gettable :settable) -> abc (show-class-variables abc) -> vtitle: {vector}1811502(class . 12) vsize:2 0 kdr: x 1 kar: nil {vector}1806440({vector}1811502(class . 12) .2) $@!w(J show-terminal $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : show-terminal $@8=:_$N%?!<%_%J%k$N>uBV$rI=<($9$k!#(J $@!w(J show-vector $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : show-vector vector vector $@$NFbMF$r%W%j%s%H$9$k!#%H%C%W%l%Y%k$G;HMQ$9$k$3$H!#(J <$@Nc(J> (!x (vcons 'asd 3)) -> {vector}57961(asd . 3) (show-vector x) -> vtitle:asd vsize:3 0 kdr: nil 1 kar: nil 2 kdr: nil $@!w(J signed-integer-locative-arrays $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : signed-integer-locative-arrays &rest array-spec $@MWAG$N%G!<%?7?$,Id9fIU$-@0?t%m%+%F%#%V$G$"$kG[Ns$r@8@.$7!"(Jarray-spec $@$r%j%9%H$K$7$FJV$9!#(Jarray-spec $@$O!"(J(var dimension) $@$H$$$&7A<0!#$3$3$G!"(J var $@$O@8@.$5$l$kG[Ns$NL>A0$G$"$j!"(Jdimension $@$OG[Ns$N (signed-integer-locative-arrays (a1 10) (a2 (-5 4) 47)) -> ((a1 10) (a2 (-5 4) 47)) 2 $@$D$NG[Ns(J a1 a2 $@$,@8@.!#(J a1 $@$O!"%i%s%/$,(J 1 $@$G!" 123 (a1 5) -> 123 ((a2 -3 39) <- 456) -> 456 (a2 -3 39) -> 456 $@!w(J signed-integer-locatives $@4X?t(J[#!exprdyn] <$@@bL@(J> $@7A<0(J : signed-integer-locatives &rest var1 var2 ... varN N $@8D$N(J 64 $@%S%C%HId9f$D$-@0?t%m%+%F%#%V$r@8@.$7!"$=$l$i$rBP1~$9$k3F!9$N(J $@JQ?t$KBeF~$7!"%j%9%H(J (var1 var2 ... varN) $@$rJV$9!#=i4|@_Dj$O9T$o$J$$!#(J <$@Nc(J> (signed-integer-locatives d e f g h) -> (d e f g h) d -> 476365 e -> 476366 $@!w(J signum $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : signum number $@M-M}?t(J number $@$NCM$KBP1~$7$F0J2<$NCM$rJV$9!#(J $@Ii(J -1 0 0 $@@5(J 1 <$@Nc(J> (signum 0) -> 0 (signum -3.7l5) -> -1.0 (signum 415) -> 1 (signum #c(7.5 10.0)) -> #c(0.60 0.80f0) (signum #c(0.0 -14.7)) -> #c(0.0f0 -1.0f0) $@!w(J common:simple-array-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:simple-array-p array array $@$,C1=cG[Ns(J $@$J$i!"(Jarray $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#C1=cG[Ns(J $@$H$O!"6&M-$5$l$F$J$/!"$+$D(J adjustable $@$G$J$/$5$i$K%U%#%k%]%$%s%?$r;}$?(J $@$J$$G[Ns$N$3$H!#(J <$@Nc(J> (!x (array '(2 2))) -> {applobj}1783962(#!array . 8) (common:simple-array-p x) -> {applobj}1783962(#!array . 8) $@!w(J common:simple-bit-vector-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:simple-bit-vector-p vector vector $@$,C1=c%S%C%H%Y%/%?$G$"$l$P(J vector $@$r!"$=$l0J30$J$i(J nil $@$rJV$9!#(J $@!w(J common:simple-string-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:simple-string-p string string $@$,C1=cJ8;zNs$G$"$l$P(J string $@$r!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (common:simple-string-p "abcd") -> "abcd" (common:simple-string-p "TAO") -> "TAO" (common:simple-string-p "a") -> nil $@!w(J common:simple-vector-p $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:simple-vector-p vector vector $@$,C1=c%Y%/%?$G$"$l$P(J t $@$r!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (common:simple-vector-p #(1 2 3 4 5)) -> {vector}80775(simple-vector . 5) $@!w(J sin $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sin number numbner ($@C10L(J:$@%i%8%"%s(J) $@$KBP1~$9$k@589CM$rJV$9!#(J <$@Nc(J> (sin [pi / 6]) -> 0.50f0 (sin [pi / 4]) -> 0.707106781186548f0 $@!w(J single-float-epsilon $@Dj?t(J <$@@bL@(J> $@%7%9%F%`$G=hM}$7F@$k:G>.$N@5$N(J single-float $@$,3JG<$5$l$F$$$k(J $@%7%9%F%`Dj?t$G$"$j!"K\%7%9%F%`$G$O!"(J1.11022302462516f-16$@!#(J $@!w(J single-float-negative-epsilon $@Dj?t(J <$@@bL@(J> $@%7%9%F%`$G=hM}$7F@$k:G>.$NIi$N(J single-float $@$,3JG<$5$l$F$$$k(J $@%7%9%F%`Dj?t$G$"$j!"K\%7%9%F%`$G$O!"(J5.55111512312579f-17$@!#(J $@!w(J singlefloatp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : singlefloatp number number $@$,C1@:EY$NIbF0>.?tE@?t$J$i(J t $@!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (singlefloatp 1.23) -> nil (singlefloatp 1.23f0) -> t $@!w(J sinh $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sinh number number $@$NCM(J ($@C10L(J:$@%i%8%"%s(J) $@$KBP1~$9$kAP6JE*@589CM$rJV$9!#(J <$@Nc(J> (sinh 0.5f0) -> 0.521095305493748f0 (sinh 1.0f0) -> 1.1752011936438f0 $@!w(J sixth $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : sixth list list $@$N(J 6 $@HVL\$NMWAG$NCM$rJV$9(J ($@:G=i$NMWAG$,(J 1 $@HVL\(J)$@!#(J <$@Nc(J> (sixth '(0 1 2 3 4 5 6 7 8)) -> 5 $@!w(J sleep $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : sleep number &opt integer $@ (sleep 8.) 8 $@IC4V $@7A<0(J : slength string string $@$ND9$5$rJV$9!#(J <$@Nc(J> (slength "") -> 0 (slength "a") -> 1 (slength "abcdefghijkl") -> 12 $@!w(J slex $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : slex string1 string2 string1 ($@J8;zNs$^$?$O%"%H%`(J) $@$,!"(Jstring2 $@$h$j<-=q=gE*$KBg$-$$>l9g!"(J string2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$O(J $@L5;k!#(J <$@Nc(J> (slex "story" 'store) -> "store" (slex "$@$O$J(J" "$@$O$7(J") -> "$@$O$7(J" (slex "$@$O$J(J" "$@$O$J$7(J") -> nil $@!w(J smemq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : smemq string1 string2 string1 $@$NJ8;zNs%Q%?!<%s$,!"(Jstring2 $@$NItJ,%9%H%j%s%0$H$7$F4^$^$l$F$$$k(J $@$+$I$&$+$rD4$Y!"$"$C$?>l9g$K$O(J string2 $@Fb$N@hF,J8;z$N0LCV$rJV$7!"(J $@$J$1$l$P(J nil $@$rJV$9!#(J1 $@%P%$%H$N%"%k%U%!%Y%C%H$K$*$$$FBgJ8;z!">.J8;z$O(J $@L5;k$5$l$k$,!"F|K\8lJ8;z$OA4$F$3$l$i$r6hJL$9$k!#(J <$@Nc(J> (smemq "a" "ABD") -> 0 (smemq "a" "abcdef") -> 0 (smemq "abc" 'fedcba) -> nil (smemq "efg" "abcdefgh") -> 4 (smemq "$@$$$&(J" "$@$"$$$&$($*(J") -> 1 (smemq "$@%"%$%&%((J" "$@%"%$%&(J") -> nil (smemq "$@$"(J" "$@$!$C(J") -> nil $@!w(J smemq-case $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : smemq-case x y string1 $@$NJ8;zNs%Q%?!<%s$,!"(Jstring2 $@$NItJ,%9%H%j%s%0$H$7$F4^$^$l$F$$$k(J $@$+$I$&$+$rD4$Y!"$"$C$?>l9g$K$O(J string2 $@Fb$N@hF,J8;z$N0LCV$rJV$7!"(J $@$J$1$l$P(J nil $@$rJV$9!#(J <$@Nc(J> (smemq-case "A" "aAbc") -> 1 (smemq-case "d" "abc") -> nil (smemq-case "ab" "cdab") -> 2 (smemq-case "a" "ABC") -> nil (smemq-case "$@$"(J" "$@$!$C(J") -> nil $@!w(J snull $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : snull string string $@$,(J null $@%9%H%j%s%0(J ("") $@$J$i!"(J"" $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$r(J $@JV$9!#(J <$@Nc(J> (snull "") -> "" (snull 123) -> nil (snull "ab") -> nil (suull "$@$$$A$4(J") -> nil $@!w(J software-type $@4X?t(J[#!expr] <$@@bL@(J> $@8=:_%5%]!<%H$5$l$F$$$k%=%U%H%&%'%"$N0lHLE*$JL>A0$r<1JL$9$kJ8;zNs$r(J $@JV$9!#(JELIS $@%7%9%F%`$G$O!"(J"NUE" $@$,JV$k!#(J <$@Nc(J> "NUE" "Spice" "TOPS-20" "ITS" $@!w(J software-version $@4X?t(J[#!expr] <$@@bL@(J> $@8=:_%5%]!<%H$5$l$F$$$k%=%U%H%&%'%"$N%P!<%8%g%s$r<1JL$9$kJ8;zNs$rJV$9!#(J <$@Nc(J> "0.26 [25-Apr-87] Lap file becomes bex" $@!w(J some $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : some pred seq1 &rest seq2 ... seqN $@>r7o(J pred $@$r%7!<%1%s%9(J seq1 seq2 ... seqN $@$K=gHV$KE,MQ$7!":G=i$K!"(Jnil $@0J30$NCM$K$J$C$?$H$3$m$G!"D>$A$K$=$NCM$rJV$7!":G8e$^$G(J nil $@$G$"$C$?>l9g(J $@$K$O!"(Jnil $@$rJV$9!#%7!<%1%s%9$N?t$O!"(Jpred $@$,$H$k0z?t$N?t$HF1$8$G$J$1$l$P(J $@$J$i$J$$!#(J <$@Nc(J> (some #'oddp '(1 2 3)) -> 1 (some #'oddp '(2 4 6)) -> nil (some #'integerp '(1.2 3.4 5 6.7)) -> 5 (some #'> '(1 2 3 4 5) '(0.5 1.4 2 5.9 3)) -> 2 $@!w(J sort $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sort list func list $@$NA4$F$NMWAG$r!"4X?t(J func $@$K=>$$JB$YJQ$(!"$=$N7k2L$rJV$9!#(J $@GK2uE*$G$"$k!#(J func $@$O>o$K(J t $@$rJV$9!#(J <$@Nc(J> (sort (list 237 74 3 -43 470) '<) -> (-43 3 74 237 470) (sort (list "abc" "ab" "bdc" "aac") 'string-lessp) -> ("aac" "ab" "abc" "bdc") (sort (list '((3 . c) (1 . d) (1 . e))) (lambda (x y) (<= (car x) (car y))) ) -> ((1 . d) (1 . e) (3 . c)) $@!w(J common:sort $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:sort seq pred &key :key $@%7!<%1%s%9(J seq $@$r>r7o(J pred $@$K=>$C$FJB$S$+$(!"7k2L$rJV$9!#(J <$@Nc(J> (!a '("abc" "qwe" "dfg" "ert")) (!b (common:sort a #'string-lessp)) a -> ("abc" "dfg" "ert" "qwe") b -> ("abc" "dfg" "ert" "qwe") $@!w(J sortcar $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : sortcar list func list $@$N3FMWAG$r3F!9$N(J car $@It$KCeL\$7$F!"4X?t(J func $@$K=>$C$FJB$Y$+$(!"(J $@7k2L$rJV$9!#JB$Y$+$(=hM}$,(J list $@$=$l<+?H$KBP$7$F$G$J$/(J,$@3FMWAG$N(J car $@$KBP$7$FE,MQ$5$l$k$H$$$&$3$H$r=|$1$P!"(Jsort $@$HF1$8!#(J <$@Nc(J> (!x '((qwe rty uio) (asd fgh jkl) (zxc vbn m,.))) -> ((qwe rty uio) (asd fgh jkl) (zxc vbn m,.)) (!y (sortcar x 'char-lessp)) -> ((asd fgh jkl) (qwe rty uio) (zxc vbn m,.)) y -> ((asd fgh jkl) (qwe rty uio) (zxc vbn m,.)) x -> ((qwe rty uio) (zxc vbn m,.)) $@!w(J special-form-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : special-form-p symbol symbol $@$,FC (special-form-p 'if -> {applobj}36593(#!macro . 6) (special-form-p 'setq) -> {applobj}36470(#!macro . 6) (special-form-p 'defun) -> {applobj}1761368(#!expr . 6) (special-form-p 'car) -> nil (special-form-p 'cond -> {applobj}32990(#!subr . 6) $@!w(J special-stream $@%/%i%9(J <$@@bL@(J> $@%?!<%_%J%k%/%i%9!"J8;zNsF~NO%9%H%j!<%`!"J8;zNs=PNO%9%H%j!<%`!"(J $@APJ}8~%9%H%j!<%`!"%(%3!<%9%H%j!<%`!"%V%m!<%I%-%c%9%H%9%H%j!<%`!"(J $@%3%s%+%F%#%M%$%F%#%I%9%H%j!<%`$N(J root-class $@$G$"$k!#(J special-stream $@$O!"(Js $@<0$K$h$C$F%5%]!<%H$5$l$k!#(J $@%f!<%6$O!"(Jnormal-stream $@$rJQ99$G$-$J$$$,!"(Jspecial-stream $@$N%5%V%/%i%9$O(J $@:n$l$k!#$=$l$O!"(Jmicro-code $@%W%m%0%i%`$K$h$C$F%5%]!<%H$5$l$F$$$k!#(J $@!w(J special-stream-p $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : special-stream-p stream stream $@$,(J normal-stream $@$J$i$P(J stream $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@!w(J special-variables $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : special-variables &rest var1 var2 ... varN var1 var2 ... varN $@$r%9%Z%7%c%kJQ?t!"$D$^$j@EE*%9%3!<%W$N30B&$+$i(J $@%"%/%;%9$G$-$kJQ?t$H$7$F@k8@$7!"$=$NL>A0$rJV$9!#$3$l$i$NJQ?t$r@k8@$9$k(J $@$3$l$O!"%W%m%0%i%`$NK\BN$b$7$/$O4X?t$NK\BN$N(J 1 $@HV:G=i$K;XDj$9$k!#(J <$@Nc(J> (de main-func (x y &aux status line) (special-variables status line) ... ) $@!w(J speed $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : speed form form $@$r $@7A<0(J : spop object &opt n object $@$N@hF,$+$i(J n $@J8;zCj=P$7$FJV$9!#GK2uE*!#(Jn $@$N4{DjCM$O(J 1$@!#(J object $@$O%9%H%j%s%0$+%"%H%`$G$J$1$l$P$J$i$J$$!#(J <$@Nc(J> (!x "abcdef") -> "abcdef" (spop x) -> "a" x -> "bcdef" (spop x 2) -> "bc" x -> "def" (!bar '("John" "runs" "fast")) -> ("John" "runs" "fast") (spop (cadr bar) 3) -> "run" bar -> ("John" "s" "fast") $@!w(J spy $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : spy terno $@%?!<%_%J%k(J terno $@$r%9%Q%$$9$k!#(J $@!w(J sqrt $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sqrt number number $@$Nl9g!"J#AG?t$K$J$k!#(J <$@Nc(J> (sqrt 9.0) -> 3.0 (sqrt -9.0) -> $@%(%i!<(J (sqrt 9) -> 3.0f0 (sqrt -9) -> #c(0.0f0 3.0f0) $@!w(J sreverse $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sreverse string string $@$rH?BP$KJB$S49$(!"$=$N%3%T!<$rJV$9!#(J <$@Nc(J> (sreverse "abcdefg") -> "gfedcba" (sreverse "$@$"$$$&$($*(J") -> "$@$*$($&$$$"(J" (sreverse "$@4A;z$r$+$/(J") -> "$@$/$+$r;z4A(J" $@!w(J sstatus $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : sstatus bas:option char bas:arg &opt bas:chn login bas:meaning $@%-!<%\!<%I$N%-!<3d$jEv$F$rJQ99$9$k!#8=:_!"(Jttyint $@$@$1$,!"(Jbas:option $@$KBP$7$F5v$5$l$?CM!#(J <$@Nc(J> (seq (sstatus ttyint #101 #102) (sstatus ttyint #102 #101) ) ($@$=$l$,%?!<%_%J%k$J$i(J) *standard-input* $@$K$D$$$F$N%-!<%\!<%I(J $@;XDj$r(J A $@$+$i(J B $@5Z$S(J B $@$+$i(J A $@$KJQ$($k!#(J (seq (sstatus ttyint #101 #101) (sstatus ttyint #102 #102) ) $@85$N%-!<%\!<%I;XDj$KLa$9!#(J (sstatus ttyint #1 'xoff) ctrl-A $@$NFbMF$r(J xoff code $@$K%;%C%H$9$k!#(J (sstatus ttyint #2 'xon) ctrl-B $@$NFbMF$r(J xon code $@$K%;%C%H$9$k!#(J (sstatus ttyint #1 'break) ctrl-A $@$NFbMF$rDL>o$N(J ctrl-C $@$H$7$F%;%C%H$9$k!#(J (sstatus ttyint #1 'inspect) ctrl-A $@$NFbMF$rDL>o$N(J ctrl-T $@$H$7$F%;%C%H$9$k!#(J (sstatus ttyint #1 'abort) ctrl-A $@$NFbMF$rDL>o$N(J ctrl-\ $@$H$7$F%;%C%H$9$k!#(J (sstatus ttyint #1 'suppress) ctrl-A $@$NFbMF$rDL>o$N(J ctrl-O $@$H$7$F%;%C%H$9$k!#(J (sstatus ttyint #1 `(special-key-interrupt ,terno)) ctrl-A $@$K?7$7$$%-!<%\!<%ICfCG4X?t$rEPO?$9$k!#(J $@!w(J common:stable-sort $@L$%$%s%W%j%a%s%H(J $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:stable-sort seq pred &key :key $@%7!<%1%s%9(J seq $@$r>r7o(J pred $@$K=>$C$FJB$YJQ$(!"$=$N7k2L$rJV$9!#(J $@0BDj$J%=!<%H!#(J $@!w(J stail $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : stail string &opt n n >= 0 $@$N$H$-!"(Jstring $@$N(J n $@HVL\$NJ8;z(J (0 $@$+$i?t$($k(J) $@$+$i;O$^$kItJ,(J $@J8;zNs$r@8@.$7JV$9!#(J n < 0 $@$N$H$-!"(Jstring $@$N:G8e$+$i(J n $@J8;z$r (stail "tail") -> "ail" (stail "tail-of-snake" 8) -> "snake" (stail "toolarge" 100) -> "" (stail 'string -2) -> "stri" (stail "string" 0) -> "string" (stail "" 3) -> "" (stail "$@$5$h$&$J$i(J" 3) -> "$@$J$i(J" $@!w(J standard-char-p $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : standard-char-p char char $@$,I8=`J8;z$G$"$l$P(J char $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (standard-char-p #\a) -> "a" (standard-char-p #\space) -> #\space (standard-char-p #\Backspce) -> nil (standard-char-p #\Tab) -> nil (standard-char-p #\Rubout) -> nil (standard-char-p #\Linefeed) -> nil (standard-char-p #\Return) -> nil (standard-char-p #\Page) -> nil $@!w(J standard-read $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : standard-read &opt stream *read-base* $@$,(J 10 $@!"(J*read-eof-value* $@$,(J :eof $@$N$h$&$J4{DjCM$r$H$k(J $@%Q%i%a!<%?$G(J read $@$r $@7A<0(J : standard-write object &ot stream *print-base* $@$,(J 10$@!"(J*print-case* $@$,(J :downcase$@!"(J*print-package* $@$,(J t $@Ey$N$h$&$KI8=`CM$r$H$k%Q%i%a!<%?$K$h$C$F(J write $@$rJN,$5$l$k$H!"(J*standard-output* $@$NCM$,;H$o$l$k!#(Jobject $@$rJV$9!#(J <$@Nc(J> (standard-write 'abc) -> abc abc (standard-write 97) -> 97 97 (standard-write "abc def") -> "abc def" "abc def" $@!w(J step $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : step &rest func func $@$rI>2A$7!"(Jfunc $@$,JV$9$b$N$rJV$9!#$3$N$H$-!"I>2A$O(J 1 $@%9%F%C%W$:$D(J $@C`2A$r?J9T$5$;(J $@$k$3$H$b$G$-$k!#(J <$@Nc(J> step step>(car '(a b c)) a stepper-end $@!w(J stream-element-type $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : stream-element-type stream stream $@$+$iFI$_=P$5$l$k!"$"$k$$$O$=$l$KBP$7$F=q$-9~$^$l$k%*%V%8%'%/%H(J $@$rI=$97?;XDj;R$rJV$9!#(J $@!w(J streamp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : streamp stream stream $@$,%9%H%j!<%`$J$i!"(Jstream $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (!x (open "test.tao") -> {udo}1785013file-stream (streamp x) -> {udo}1785013file-stream $@!w(J strh-to-char $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : strh-to-char string string $@$rJ8;zKt$O%7%s%\%k$KJQ49$7!"$=$N7k2L$rJV$9!#(J <$@Nc(J> (strh-to-char "a") -> "a" {$@$3$l$OJ8;z!"$9$J$o$A(J#\a} (strh-to-char "ab") -> "a" $@!w(J string $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : string arg arg $@$NB0@-$rI>2A$7!"$=$NB0@-$K$h$j0J2<$N=hM}$r9T$J$&!#(J $@%*%V%8%'%/%H$NB0@-(J $@JVCM(J $@J8;z(J -----> $@%*%V%8%'%/%H$NCM(J $@%7%s%\%k(J -----> $@0u;zL>(J $@J8;zNsJ8;z(J(string-char$@7?$NJ8;z(J) -----> 1 $@8D$NJ8;z$r4^$`J8;zNs(J <$@Nc(J> (string "ab") -> "ab" (string 'ab) -> "ab" (string 1) -> $@%(%i!<(J (string "$@4A;z(J") -> "$@4A;z(J" (string '$@$"$5(J) -> "$@$"$5(J" (string "1") -> "1" $@!w(J string $@%/%i%9(J <$@@bL@(J> $@%$%s%9%?%s%9$O(J "anpontan", "a", "noroma" $@$N$h$&$KJ8;z$bJ8;zNs$b2D!#(J $@J8;z$K$O(J 8 $@%S%C%HJ8;z$H!"(J16 $@%S%C%HJ8;z$N(J 2 $@/$J$/$H$b(J 1 $@$D(J 16 $@%S%C%HJ8;z$r$b$DJ8;zNs$O(J jstring $@$H8F$P(J $@$l$k!#J8;z$HJ8;zNs$O%U%)%s%H>pJs$r;}$AF@$k!#%U%)%s%H>pJs$r;}$DJ8;zNs$O(J fat-string $@$H8F$P$l$k!#(J $@!w(J string-append $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-append &rest string1 string2 ... stringN string1 string2 ... stringN $@$rO"7k$7$?J8;zNs$r:n@.$7!"JV$9!#(J <$@Nc(J> (string-append "str" "ing-app" 'end) -> "string-append" (string-append "va" nil "la") -> "vala" ( "vanilla"$@$G$O$J$$(J) (string-append) -> "" (string-append "$@4A(J" "$@;z(J" "$@$H(J" "$@$R$i$,$J(J") -> "$@4A;z$H$R$i$,$J(J" $@!w(J string-byte-count $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-byte-count string string $@$N%P%$%H?t$rJV$9!#(J <$@Nc(J> (!x "a b c") (string-byte-count x) -> 5 (string-byte-count "1 2 3" -> 5 (string-byte-count "$@$"$$$&$($*(J") -> 10 (string-byte-count "$@:#F|$O(J") -> 6 $@!w(J string-capitalize $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-capitalize string &opt start end string $@$N(J start $@$H(J end $@$NHO0O$NC18l$N@hF,J8;z$rBgJ8;z$K$7$FJV$9!#(J start,end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (string-capitalize "abc def-ghi") -> "Abc Def-Ghi" (string-capitalize "@#$%&<+=/;abcd") -> "@#$%&+=/;Abcd" (string-capitalize "I am a programmer" 0 5) -> "I Am a programmer" $@!w(J common:string-capitalize $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-capitalize string &key :start :end string $@$N(J :start $@$H(J :end $@$NHO0O$NC18l$N@hF,J8;z$rBgJ8;z$K$7$FJV$9!#(J :start,:end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (common:string-capitalize "hello") -> "Hello" (common:string-capitalize "hello" :start 2) -> "heLlo" (common:string-capitalize "this book is nice" :start 5 :end 8) -> "this Book is nice" $@!w(J string-char-p $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-char-p char $@J8;z(J char $@$,J8;zNs$K3JG<$G$-$l$P(J char $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (string-char-p #\a) -> "a" (string-char-p #\Backspace) -> #\Backspace $@!w(J string-compare $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-compare object1 object2 object1 $@$H(J object2 ($@J8;zNsKt$O%"%H%`(J) $@$rHf3S$7!"$=$N7k2L$K=>$C$Fl9g!"(J0 $@$rJV$9!#(J (2) object1 $@$NJ}$,<-=qE*$K(J object2 $@$h$jBg$-$/!":G=i$N(J (n-1) $@J8;z(J $@$,(J object1 $@$H(J object2 $@$GF1$8>l9g!"(Jn $@$rJV$9!#(J (3) object2 $@$NJ}$,<-=qE*$K(J object1 $@$h$jBg$-$/!":G=i$N(J (n-1) $@J8;z(J $@$,(J object1 $@$H(J object2 $@$GF1$8>l9g!"(J-n $@$rJV$9!#(J $@J8;zNsFb$NJ8;z0LCV$r(J 1 $@$+$i?t$($k(J (1-origin $@$N%$%s%G%C%/%9(J)$@!#(J <$@Nc(J> (string-compare "foo" "foo") -> 0 (string-compare "abcdfghi" "abcdefghi") -> 5 (string-compare "abcdefghi" "abcdfghi") -> -5 (string-compare "abcdefg" "ABCdefg") -> 0 (string-compare "$@$"$$$&$=$+$-(J" "$@$"$$$&$($*(J") -> 6 $@!w(J string-compare-case $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-compare-case object1 object2 $@4X?t(J string-compare $@$HF1$8F0:n$r$9$k$,!"BgJ8;z$H>.J8;z$r6hJL$9$k!#(J object1 $@$H(J object2 ($@J8;zNsKt$O%"%H%`(J) $@$rHf3S$7!"$=$N7k2L$K=>$C$Fl9g!"(J0 $@$rJV$9!#(J (2) object1 $@$NJ}$,<-=qE*$K(J object2 $@$h$jBg$-$/!":G=i$N(J (n-1) $@J8;z(J $@$,(J object1 $@$H(J object2 $@$GF1$8>l9g!"(Jn $@$rJV$9!#(J (3) object2 $@$NJ}$,<-=qE*$K(J object1 $@$h$jBg$-$/!":G=i$N(J (n-1) $@J8;z(J $@$,(J object1 $@$H(J object2 $@$GF1$8>l9g!"(J-n $@$rJV$9!#(J $@J8;zNsFb$NJ8;z0LCV$r(J 1 $@$+$i?t$($k(J (1-origin $@$N%$%s%G%C%/%9(J)$@!#(J <$@Nc(J> (!x "aBCDef") (!y "abCdEF") (string-compare-case x y) -> -2 (!x "a b c") (!y "a B") (string-compre-case x y) -> 3 (!x "$@$"$$$&$($*(J") (!y "$@%"%$%&%(%*%+%-(J") (string-compare-case x y) -> -1 $@!w(J string-downcase $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-downcase string &opt start end string $@$K$*$$$F!"(Jstart $@$H(J end $@$NHO0O$NBgJ8;z$r$9$Y$FBP1~$9$k>.J8;z$K(J $@JQ49$7!"$=$N7k2L$rJV$9!#(Jstart,end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$N(J $@D9$5!#(J <$@Nc(J> (string-downcase "ABCDEF" 2 4) -> "ABcdEF" (string-downcase "ABCDEF") -> "abcdef" (string-downcase "I LIKE ORANGES" 2 6) -> "I like ORANGES" $@!w(J common:string-downcase $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-downcase string &key :start :end string $@$N!"(J:start $@$H(J :end $@$NJ8;zNsFb$NBgJ8;z$r>.J8;z$KJQ49$7!"(J $@$=$N7k2L$rJV$9!#(J:start,:end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (common:string-downcase "ABCDEF" :start 2) -> "ABcdef" (common:string-downcase "ABCDEF") -> "abcdef" (common:string-downcase "ABCDEF" :end 4) -> "abcdEF" (common:string-downcase "I LIKE APPLES" :start 2 :end 5) -> "I like APPLES" $@!w(J string-equal $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-equal string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"0lCW$7$F$$$l$P(J string1 $@$rJV$7!"(J $@$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (string-equal "abc" "xyz") -> nil (string-equal "abc" "abc") -> "abc" (string-equal "$@$O$k(J" "$@$O$k(J") -> "$@$O$k(J" (string-equal "$@$5$/$i(J" "$@$5$/(J") -> nil $@!w(J common:string-equal $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-equal string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"0lCW$7$F$$$l$P(J string1 $@$rJV$7!"(J $@$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (!x "a") (!y "a") (common:string-equal x y) -> "a" (common:string-equal "ab" "a") -> nil (!x "$@$"$$$&$($*(J") (!y "$@%"%$%&%(%*(J") (common:string-equal x y) -> nil $@!w(J string-fill $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-fill string character &opt start end string $@$K$*$$$F!"(Jstart $@$H(J end $@$NHO0O$NA4$F$NJ8;z$r!"(Jcharacter $@$KJQ99(J $@$7!"$=$N7k2L$rJV$9!#(J start, end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (string-fill "abcdefghij" "x" 2 4) -> "abxxefghij" (string-fill "abcdefghij" "x") -> "xxxxxxxxxx" (string-fill "abcdefghij" "x" 12 14) -> "abcdefghij" (string-fill "$@$5$7$9$;$=(J" "$@$9(J" 2 4) ->"$@$5$7$9$9$=(J" $@!w(J common:string-fill $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-fill string character &key :start :end string $@$K$*$$$F!"(Jstart $@$H(J end $@$NHO0O$NA4$F$NJ8;z$r!"(Jcharacter $@$KJQ99(J $@$7!"$=$N7k2L$rJV$9!#(J:start,:end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (common:string-fill "abcdefg" 'c :start 1 :end 4) -> "acccefg" (common:string-fill "$@$+$-$/$1$3(J" '$@$5(J ) -> "$@$5$5$5$5$5(J" $@!w(J string-fill-pointer $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-fill-pointer string $@%U%#%k%]%$%s%?IU$-$N%9%H%j%s%0(J string $@$N%U%#%k%]%$%s%?$NCM$rJV$9!#(J <$@Nc(J> (!y (make-string-with-fill-pointer 10 "a" 20)) -> "aaaaaaaaaa" (string-fill-pointer y) -> 10 (!(string-fill-pointer y) 15) -> 15 y -> "aaaaaaaaaaaaaaa" (!(string-fill-pointer y) 30) -> $@%(%i!<(J $@!w(J string-greater-or-equal $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-greater-or-equal string1 string2 string1 $@$H(J string2 $@$NCM$rHf3S$7!"<-=qE*$KEy$7$$$+Bg$-$1$l$P!"(Jstring2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (string-greater-or-equal "ab " "a") -> "a" (string-greater-or-equal "ab" "b") -> nil (string-greater-or-equal "ab" "abcde") -> nil (string-greater-or-equal "ab" "ab") -> "ab" (string-greater-or-equal "$@$5$7$9(J" "$@$9$;$=(J") -> nil $@!w(J string-greaterp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-greaterp string1 string2 string1 $@$NCM$,!"(Jstring2 $@$NCM$h$j<-=q=gE*$KBg$-$$>l9g!"(Jstring2 $@$NCM$r(J $@JV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (string-greaterp "story" 'store) -> "store" (string-greaterp "$@$+$?$+$J(J" '$@$R$i$,$J(J) -> nil (string-greaterp "$@%+%?%+%J(J" "$@$R$i$,$J(J") -> "$@$R$i$,$J(J" $@!w(J common:string-greaterp $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-greaterp string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$,(J string2 $@$h$j<-=q=gE*$KBg$-$$>l9g!"$=$N0lCW$7$J$$:G=i$NJ8;z(J $@0LCV$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (common:string-greaterp "123" "4") -> nil (common:string-greaterp "cd" "a") -> 0 (common:string-greaterp "a" "a") -> nil (common:string-greaterp "$@%"%$%&(J" "$@$"$$$&(J") -> 0 (common:string-greaterp "aBcd" "abc") -> 3 $@!w(J string-input-stream $@%/%i%9(J <$@@bL@(J> $@%$%s%9%?%s%9$,J8;zNsF~NO%9%H%j!<%`$G$"$k%/%i%9!#(J $@J8;zNs%G!<%?$O!"$3$N%9%H%j!<%`$+$i$H$i$l$k!#(J $@!w(J string-left-trim $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-left-trim string1 string2 string2 $@$NJ8;zNs$r:8$+$i1&$XD4$Y$F9T$-!"(Jstring1 $@$NCf$N$$$:$l$+$NJ8;z(J $@$HEy$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"$=$NJ8;z$r(J string2 $@$+$iH4$- (string-left-trim "abc" "acbcaxyabcpqbcaba") -> "xyabcpqbcaba" (string-left-trim "abc" "abcabcabcxabcyabccabca") -> "xabcyabccabca" (!r "$@%+%?%+%J$H$R$i$,$J(J") -> "$@%+%?%+%J$H$R$i$,$J(J" (string-left-trim "$@%+(J" r) -> "$@%?%+%J$H$R$i$,$J(J" r -> "$@%+%?%+%J$H$R$i$,$J(J" (string-left-trim "$@$+(J" "$@$+$+$+$+$-$/$1$3(J") -> "$@$-$/$1$3(J" $@!w(J common:string-left-trim $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:string-left-trim char-bag string string $@$NJ8;zNs$r:8$+$i1&$XD4$Y$F9T$-!"(Jchar-bag $@$NCf$N$$$:$l$+$NJ8;z$H(J $@Ey$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"$=$NJ8;z$r(J string $@$+$iH4$- (!p "acbcaxyabcpqbcaba") -> "acbcaxyabcpqbcaba" (common:string-left-trim "abc" p) -> "xyabcpqbcaba" p -> "acbcaxyabcpqbcaba" (!q "abcabcabcxabcyabccabca") -> "abcabcabcxabcyabccabca" (common:string-left-trim "abc" q) -> "xabcyabccabca" (!r "$@%+%?%+%J$H$R$i$,$J(J") -> "$@%+%?%+%J$H$R$i$,$J(J" (common:string-left-trim "$@%+(J" r) -> "$@%?%+%J$H$R$i$,$J(J" r -> "$@%+%?%+%J$H$R$i$,$J(J" $@!w(J string-length $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-length string string $@$NJ8;zNs$ND9$5$rJV$9!#(J <$@Nc(J> (string-length "") -> 0 (string-length '|abc|) -> 3 (string-length "abcdefghijkl") -> 12 (string-length "$@:#F|$O(J") -> 3 $@!w(J string-less-or-equal $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-less-or-equal string1 string2 string1 $@$H(Jstring2 $@$rHf3S$7!"(Jstring1 $@$N$[$&$,<-=q=gE*$K>.$5$$$+Ey$7$$(J $@>l9g!"(Jstring2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (string-less-or-equal "2" "1") -> nil (string-less-or-equal "2" "2") -> "2" (string-less-or-equal "abc" "def") -> "def" (string-less-or-equal "$@$"$+$5(J" "$@$O$^$d(J") -> "$@$O$^$d(J" (string-less-or-equal "$@%"%+%5(J" "$@$"$+$5(J") -> nil $@!w(J string-lessp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-lessp string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$N$[$&$,!"(Jstring2 $@$NCM$h$j<-=q=g(J $@E*$K>.$5$$>l9g$O!"(Jstring2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (string-lessp "abacus" "abdomen") -> "abdomen" (string-lessp "abcdef" "abcde") -> nil (string-lessp "abcdef" "abcdefg") -> "abcdefg" (string-lessp "$@$+$?$+$J(J" '$@$R$i$,$J(J) -> "$@$R$i$,$J(J" $@!w(J common:string-lessp $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-lessp stringa string2 &opt :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$NJ}$,<-=q=gE*$K>.$5$$$H$-!"$=$N(J $@0lCW$7$J$$:G=i$NJ8;z0LCV$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (common:string-lessp "a" "A") -> nil (common:string-lessp "A" "b") -> 0 (common:string-lessp "b" "a") -> nil (common:string-lessp "ab" "da") -> 0 (common:string-lessp "$@$+$?$+$J(J" "$@$+$?$_$A(J") -> 2 $@!w(J string-not-equal $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-not-equal string1 string2 string1 $@$H(J string2 $@$NCM$rHf3S$7!"<-=q=gE*$K0lCW$7$J$+$C$?>l9g!"(J string2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$O(J $@L5;k$9$k!#(J <$@Nc(J> (string-not-equal "b" "B") -> nil (string-not-equal "a" "b") -> "b" (string-not-equal "b" "a") -> "a" (string-not-equal "a" "a") -> nil (string-not-equal "$@$3$s$A$O(J" "$@%3%s%A%O(J") -> "$@%3%s%A%O(J" $@!w(J common:string-not-equal $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-not-equal string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"<-=q=gE*$K0lCW$7$J$+$C$?>l9g!"0lCW$7$J$$(J $@:G=i$NJ8;z0LCV$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (common:string-not-equal "a" "a") -> nil (common:string-not-equal "a" "b") -> 0 (common:string-not-equal "A" "a") -> nil (common:string-not-equal "$@$+$5(J" "$@$+$_(J") -> 1 $@!w(J string-not-greaterp $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : string-not-greaterp string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$N$[$&$,<-=q=gE*$KBg$-$/$J$+$C$?(J $@>l9g!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c(J $@$OL5;k$9$k!#(J <$@Nc(J> (string-not-greaterp "a" "A") -> "A" (string-not-greaterp "a" "b") -> "b" (string-not-greaterp "c" "b") -> nil (!x "ab") (!y "cd") (string-not-greaterp x y) -> "cd" (string-not-greaterp "$@$"$$(J" "$@$+$-(J") -> "$@$+$-(J" $@!w(J common:string-not-greaterp $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-not-greaterp string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$NJ}$,<-=q=gE*$KBg$-$/$J$+$C$?(J $@>l9g!"0lCW$7$J$+$C$?:G=i$NJ8;z0LCV$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (common:string-not-greaterp "a" "a") -> 0 (common:string-not-greaterp "a" "b") -> 0 (common:string-not-greaterp "b" "a") -> nil (!x "ab") (!y "cd") (common:string-not-greaterp x y) -> 0 (common:string-not-greaterp "$@$+$-$/$1$3(J" "$@$+$-$/$1$1(J") -> 4 $@!w(J string-not-lessp $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : string-not-lessp string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$N$[$&$,<-=q=gE*$K>.$5$/$J$+$C$?(J $@>l9g!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c(J $@$OL5;k$9$k!#(J <$@Nc(J> (string-lessp "a" "A") -> nil (string-lessp "a" "a") -> nil (string-lessp "b" "a") -> nil (string-lessp "a" "b") -> "b" (string-lessp "$@$O$J(J" "$@$O$7(J") -> "$@$O$7(J" $@!w(J common:string-not-lessp $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-not-lessp string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$NJ}$,<-=q=gE*$K>.$5$/$J$+$C$?>l9g!"(J $@0lCW$7$J$+$C$?:G=i$NJ8;z0LCV$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$OL5;k$9$k!#(J <$@Nc(J> (common:string-not-lessp "a" "b") -> nil (common:string-not-lessp "b" "a") -> 0 (common:string-not-lessp "a" "a") -> 0 (common:string-not-lessp "a" "A") -> 0 (common:string-not-lessp "cd" "ab") -> 0 (common:string-not-lessp "$@$"$+(J" "$@$"$*(J") -> 1 $@!w(J string-output-stream $@%/%i%9(J <$@@bL@(J> $@%$%s%9%?%s%9$,J8;zNs=PNO%9%H%j!<%`$G$"$k%/%i%9!#(J $@J8;zNs%G!<%?$O!"=PNOMQ$H$7$F$3$N%9%H%j!<%`$KAw$i$l$k!#(J $@!w(J string-replace $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : string-replace string1 string2 &opt start end sw string1 $@$N(J start $@HVL\$+$i(J (end-1) $@HVL\$^$G$NJ8;z$r!"(Jstring2 $@$GCV$-49$((J $@$k!#(J start $@$N4{DjCM$O(J 0$@!"(Jend $@$N4{DjCM$O(J string1 $@$ND9$5!#(J <$@Nc(J> (!str1 "abcdefghij") -> "abcdefghij" (string-replace str1 "pqrst" 3 6) -> "abcpqrghij" str1 -> "abcpqrghik" (string-replace str1 "klmno" 7 14) -> "abcpqrgklm" str1 -> "abcpqrgklm" (string-replace "$@$"$$$&$($*(J" "$@$+(J" 1 3) -> "$@$"$+$&$($*(J" $@!w(J string-reverse $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-reverse string string $@$r5U=g$KJB$S49$(!"$=$N%3%T!<$rJV$9!#(J <$@Nc(J> (string-reverse "edit") -> "tide" (!x "$@:#F|$O@2$l$@(J") -> "$@:#F|$O@2$l$@(J" (string-reverse x) -> "$@$@$l@2$OF|:#(J" (string-reverse x) -> "$@:#F|$O@2$l$@(J" $@!w(J string-reverse-search $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-reverse-search string1 string2 &opt n $@J8;zNs%Q%?!<%s(J string1 $@$,!"(Jstring2 $@Fb$K$"$k$+$r!"(J n $@HVL\$NJ8;z0LCV$+$i(J $@A0$NJ}$K5U=g$KAv::$7!"4^$^$l$F$$$?>l9g$K$O!"(Jstring1 $@$N:G=i$NJ8;z$KAjEv(J $@$9$kJ8;z$,(J string2 $@$N2?HVL\$K$"$k$+$rJV$9!#$J$+$C$?>l9g$O(Jnil $@$rJV$9!#(J n $@$,>JN,$5$l$?>l9g$K$O!"(Jstring2 $@$NJ8;zNs$N0lHV:G8e$NJ8;z$+$i8!:w$9$k(J (n $@$N4{DjCM$O(J string2 $@$ND9$5(J)$@!#J8;zNsFb$NJ8;z$N0LCV$O(J 0 $@$+$i?t$($k!#(J <$@Nc(J> (string-reverse-search "a" "ABCDE") -> 0 (string-reverse-search "fgh" "abcdefghijkl" 9) -> 5 (string-reverse-search "an" "banana") -> 3 (string-reverse-search "an" "banana" 2) -> 1 (string-reverse-search "an" 'foobar) -> nil (string-reverse-search "$@$5(J" "$@$5$/$i$5$/(J") -> 3 (string-reverse-search "$@%"(J" "$@%"%$%&%(%*(J") -> nil $@!w(J string-reverse-search-case $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-reverse-search-case string1 string2 &opt n $@J8;zNs%Q%?!<%s(J string1 $@$,(J string2 $@Fb$K$"$k$+$r!"(Jn $@HVL\$NJ8;z0LCV$+$i(J $@A0$NJ}$K5U=g$K8!:w$7!"4^$^$l$F$$$?>l9g$K$O!"H/8+$5$l$?ItJ,J8;zNs$N@hF,(J $@J8;z$N(J string2 $@Fb$NJ8;z0LCV$rJV$7!"$J$+$C$?>l9g$O(J nil $@$rJV$9!#(Jnumber $@$,(J $@>JN,$5$l$?>l9g$K$O!"(Jstring2 $@$N0lHV:G8e$NJ8;z$+$i8!:w$9$k(J(number $@$N4{Dj(J $@CM$O(J string2 $@$ND9$5(J)$@!#J8;zNsFb$NJ8;z$N0LCV$O(J 0 $@$+$i?t$($k!#(J <$@Nc(J> (string-reverse-search-case "fGh" "abcdefghijkl") -> nil (string-reverse-search-case "fGh" "abcdefghijkl" 9) -> nil (string-reverse-search-case "a" "ABCDE") -> nil (string-reverse-search-case "$@$"(J" "$@$"$$$&$($*(J") -> 0 $@!w(J string-right-trim $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-right-trim string1 string2 string2 $@$NJ8;zNs$r1&$+$i:8$XD4$Y$F9T$-!"(Jstring1 $@$NCf$N$$$:$l$+$NJ8;z(J $@$HEy$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"$=$NJ8;z$r(J string2 $@$+$iH4$- (string-right-trim "abc" "acbcaxyabcpqbcaba") -> "acbcaxyabcpq" (string-right-trim "$@$"$$$&(J" "$@$"$$$&$($"$"$"$"$$$$$$(J") -> "$@$"$$$&$((J" (!r "$@$"$$$&$($"$"$"$$$$$$(J") -> "$@$"$$$&$($"$"$"$$$$$$(J" (string-right-trim "$@$"$$$&(J" r) -> "$@$"$$$&$((J" r -> "$@$"$$$&$($"$"$"$$$$$$(J" (string-right-trim "abc" "abcabcabcabbb") -> "" $@!w(J common:string-right-trim $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:string-right-trim char-bag string string $@$NJ8;zNs$r1&$+$i:8$XD4$Y$F9T$-!"(Jchar-bag $@$NCf$N$$$:$l$+$NJ8;z(J $@$HEy$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"$=$NJ8;z$r(J string $@$+$iH4$- (common:string-right-trim "cd" "abcdefg") -> "abcdefg" (common:string-right-trim "fg" "abcdefg") -> "abcde" (!x "$@$?$A$D$?$?$l$?$?$?(J") -> "$@$?$A$D$?$?$l$?$?$?(J" (common:string-right-trim "$@$?(J" x) -> "$@$?$A$D$?$?$l(J" x -> "$@$?$A$D$?$?$l$?$?$?(J" $@!w(J string-search $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-search string1 string2 &opt number string2 $@$r@hF,$+$i=gHV$K!"(Jstring1 $@$N%Q%?!<%s$,4^$^$l$F$$$k$+$I$&$+$r(J $@D4$Y$k!#8!:w$O(J string2 $@$N(J number $@HVL\$NJ8;z$+$i;O$a$k!#(Jnumber $@$N(J $@4{DjCM$O(J 0$@!#(Jstring1 $@$r(J string2 $@>e$K=E$M$F!"@hF,$+$i1&$K$:$i$7$J$,$i(J $@D4$Y$F9T$-!":G=i$K%Q%?!<%s$,%^%C%A$7$?$H$3$m$GD4$Y$k$N$r$d$a!"$=$N;~$N(J string1 $@$N@hF,$NJ8;z$,(J string2 $@$NCf$G2?J8;zL\$K$J$C$F$$$k$N$+$rJV$9!#(J $@%^%C%A$7$J$+$C$?>l9g$O!"(Jnil $@$rJV$9!#J8;zNsFb$NJ8;z0LCV$O(J 0 $@$+$i?t$($k!#(J $@BgJ8;z!">.J8;z$NAj0c$OL5;k$5$l$k!#(J <$@Nc(J> (string-search "fgh" "abcdefghijkl" 3) -> 5 (string-search "an" "BANANA") -> 1 (string-search "an" "banana" 2) -> 3 (string-search "an" 'foobar) -> nil (string-search "$@$"$+(J" "$@$7$m$"$+$-(J") -> 2 (string-search "$@$"$+(J" "$@$"$+$7$m$-$$$m(J" 3) -> nil $@!w(J string-search-case $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-search-case string1 string2 &opt number string2 $@$r@hF,$+$i=gHV$K!"(Jstring1 $@$N%Q%?!<%s$,4^$^$l$F$$$k$+$I$&$+$r(J $@D4$Y$k!#8!:w$O(J string2 $@$N(J number $@HVL\$NJ8;z$+$i;O$a!"(Jnumber $@$N4{DjCM$O(J 0$@!#(Jstring1 $@$r(J string2 $@>e$K=E$M!"@hF,$+$i1&$K$:$i$7$J$,$iD4$Y$F9T$-!"(J $@:G=i$K%Q%?!<%s$,%^%C%A$7$?$H$3$m$GD4$Y$k$N$r$d$a!"$=$N;~$N(J string1 $@$N(J $@@hF,$NJ8;z$,(J string2 $@$NCf$G2?J8;zL\$K$J$C$F$$$k$N$+$rJV$9!#%^%C%A$7$J(J $@$+$C$?>l9g!"(Jnil $@$rJV$9!#J8;zNsFb$NJ8;z0LCV$O(J 0 $@$+$i?t$($k!#(J $@BgJ8;z$H>.J8;z$r6hJL$9$k(J <$@Nc(J> (string-search-case "fgh" "abcdefghijkl" 3) -> 5 (string-search-case "Fgh" "abcdefghijkl") -> nil (string-search-case "B" "abcABC") -> 4 (string-search-case "$@$"$$$&(J" "$@$&$($*$$$"(J") -> nil $@!w(J string-trim $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-trim string1 string2 $@$^$::G=i$K!"(Jstring2 $@$NJ8;zNs$r:8$+$i1&$XD4$Y$F9T$-!"(Jstring1 $@$NCf$N$$(J $@$:$l$+$NJ8;z$HEy$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"(Jstring-trim $@$O$=(J $@$NJ8;z$r(J string2 $@$+$iH4$- (string-trim "abc" "acbcaxyabcpqbcaba") -> "xyabcpq" (!r "$@$"$&$$$1$$$"$&$+$"$"$$$"$&(J") -> "$@$"$&$$$1$$$"$&$+$"$"$$$"$&(J" (string-trim "$@$"$$$&(J" r) -> "$@$1$$$"$&$+(J" r -> "$@$"$&$$$1$$$"$&$+$"$"$$$"$&(J" $@!w(J common:string-trim $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:string-trim char-bag string $@$^$::G=i$K!"(Jstring $@$NJ8;zNs$r:8$+$i1&$XD4$Y$F9T$-!"(Jchar-bag $@$NCf$N$$(J $@$:$l$+$NJ8;z$HEy$7$$J8;z$rA\$9!#Ey$7$$J8;z$,$"$l$P!"$=$NJ8;z$r(J string $@$+$iH4$- (common:string-trim "cd" "abcdefg") -> "abcdefg" (common:string-trim "fg" "abcdefg") -> "abcde" (!y "aabbccdeccbbaa") -> "aabbccdeccbbaa" (common:string-trim "abc" y) -> "de" y -> "aabbccdeccbbaa" (common:string-trim "$@$"$$$&(J" "$@$"$+$&$$$&$$$"(J") -> "$@$+(J" $@!w(J string-upcase $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string-upcase string &opt start end string $@$K$*$$$F!"(Jstart $@$H(J end $@$NHO0O$N>.J8;z$r$9$Y$FBgJ8;z$KJQ49$7!"(J $@$=$N7k2L$rJV$9!#(Jstart,end $@$N4{DjCM$O!"$=$l$>$l(J 0 $@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (string-upcase "abcd") -> "ABCD" (string-upcase "abcd" 2 3) -> "abCd" (string-upcase "abcd" 2) -> "abCD" (string-upcase "i am a programmer" 0 1) -> "I am a programmer" $@!w(J common:string-upcase $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string-upcase string &key :start :end :start $@$H(J :end $@$N4V$N(J string $@Fb$N>.J8;z$rBgJ8;z$KJQ49$7!"$=$N7k2L$rJV$9!#(J :start,:end $@$N4{DjCM$O(J 0$@!"(Jstring $@$ND9$5!#(J <$@Nc(J> (common:string-upcase "abcdefg" :start 3 :end 4) -> "abcDefg" (common:string-upcase "abcdefg") -> "ABCDEFG" (common:string-upcase "aDcdeHfg" :end 4) -> "ADCDeHfg" $@!w(J string/= $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string/= string1 string2 string1 $@$H(J string2 $@$r<-=q=gE*$KHf3S$7!"0lCW$7$J$+$C$?>l9g!"(Jstring2 $@$r(J $@$7!"$=$&$G$J$1$l$P(J nil$@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (string/= "A" "a") -> "a" (string-not-equal "A" "a") -> nil (string-not-equal "$@$O$k(J" "$@$"$-(J") -> "$@$"$-(J" $@!w(J common:string/= $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string/= string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$r<-=q=gE*$KHf3S$7!"0lCW$7$J$+$C$?>l9g!"0lCW$7$J$$(J $@:G=i$NJ8;z0LCV$rJV$7!"$=$l0J30$O(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (common:string/= "abc" "bcdef") -> 0 (common:string/= "abc" "abc") -> nil (!x "ab") (!y "ac") (common:string/= y x) -> 1 (common:string/= x x) -> nil (common:string/= "$@$5$/$i(J" "$@$5$/(J") -> 2 $@!w(J string< $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string< string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$N$[$&$,!"(Jstring2 $@$h$j<-=q=gE*$K(J $@>.$5$$>l9g$O!"(Jstring2 $@$NCM$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H(J $@>.J8;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (string< "a" "B") -> nil (string-lessp "a" "B") ->"B" (string< "$@$O$R$U(J" "$@$^$_$`(J") -> "$@$^$_$`(J" $@!w(J common:string< $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string< string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$r<-=q=gE*$KHf3S$7!"(Jstring1 $@$,(J string2 $@$h$j$b>.$5$$(J $@>l9g$O$=$N0lCW$7$J$$:G=i$NJ8;z0LCV$rJV$7!"$=$&$G$J$$>l9g$O(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (common:string< "abc" "abc") -> nil (common:string< "abc" "defg") -> 0 (common:string< "defg" "abc") -> nil (common:string< "abc" "abd") -> 2 (common:string< "$@$O$R$U(J" "$@$^$_$`(J") -> 0 $@!w(J string<= $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string<= string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$,!"(Jstring2 $@$h$j<-=q=gE*$K>.$5$$(J $@$+Ey$7$$>l9g!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8(J $@;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (string<= "a" "B") -> nil (string-not-greaterp "a" "B") -> "B" (string<= "$@$"$$$&(J" "$@%"%$%&(J") -> "$@%"%$%&(J" (string<= "$@$+$-$/(J" "$@$5$7$9(J") -> "$@$5$7$9(J" $@!w(J common:string<= $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string<= string1 string2 &key :start1 :end1 :start2 :end2 satring1 $@$H(J string2 $@$NCM$r<-=q=gE*$KHf3S$7!"(Jstring1 $@$NJ8;z$,(J string2 $@$NJ8;z$h$j>.$5$$$+Ey$7$$>l9g$O!"$=$N$H$-$N:G=i$NJ8;z0LCV$rJV$7!"$=$l(J $@0J30$O(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (common:string<= "ab" "ab") -> 0 (common:string<= "ab" "cde") -> 0 (common:string<= "cde" "ab") -> nil (common:string<= "$@$"$$$&(J" "$@%"%$%&(J") -> 0 $@!w(J string= $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string= string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$,!"(Jstring2 $@$K<-=q=gE*$K0lCW$7$?(J $@>l9g$O!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$N(J $@Aj0c$r6hJL$9$k!#(J <$@Nc(J> (string= "a" "A") -> nil (string-equal "a" "A") -> "A" (string= "abc" 'abc) -> "abc" (string= 'abc 'AbC) -> "abc" (string= "$@$"$$(J" "$@$"%$(J") -> nil (string= '$@$"$$(J "$@$"$$(J") -> "$@$"$$(J" $@!w(J common:string= $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string= string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$r<-=q=gE*$KHf3S$7!"Ey$7$$>l9g!"(Jstring1 $@$rJV$7!"(J $@$=$l0J30$O(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$O6hJL$9$k!#(J <$@Nc(J> (common:string= "ab" "ab") -> "ab" (common:string= "ab" "cd") -> nil (common:string= "cd" "ab") -> nil (common:string= "$@$"$$(J" "$@%"%$(J") -> nil $@!w(J string> $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string> string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$,!"(Jstring2 $@$h$j<-=q=gE*$KBg$-$$(J $@>l9g!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c(J $@$r6hJL$9$k!#(J <$@Nc(J> (string> "B" "a") -> nil (string-greaterp "B" "a") ->"a" (string> "$@$"(J" "$@$!(J") -> "$@$!(J" (string> "$@$"$5(J" "$@$"$a(J") -> nil $@!w(J common:string> $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string> string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$,(J string2 $@$h$j<-=q=gE*$KBg$-$$(J $@>l9g!"$=$N0lCW$7$J$$:G=i$NJ8;z0LCV$rJV$7!"$=$l0J30$N>l9g$O(J nil $@$rJV$9!#(J $@BgJ8;z$H>.J8;z$NAj0c$O6hJL$9$k!#(J <$@Nc(J> (common:string> "ab" "ab") -> nil (common:string> "cd" "ab") -> 0 (common:string> "$@$+$-(J" "$@%+%-(J") -> nil (common:string> "$@$"$7(J" "$@$"$5(J") -> 1 $@!w(J string>= $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : string>= string1 string2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$,!"(Jstring2 $@$h$j<-=q=gE*$KBg$-$$(J $@$+Ey$7$$>l9g!"(Jstring2 $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#BgJ8;z$H>.J8(J $@;z$NAj0c$r6hJL$9$k!#(J <$@Nc(J> (string>= "B" "a") -> nil (string-not-lessp "B" "a") -> "a" (string>= "$@$5$7(J" "$@$+$-(J") -> "$@$+$-(J" (string>= "$@$$$D(J" "$@$#$C(J") -> "$@$#$C(J" $@!w(J common:string>= $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : common:string>= string1 string2 &key :start1 :end1 :start2 :end2 string1 $@$H(J string2 $@$rHf3S$7!"(Jstring1 $@$NA4$F$NJ8;z$,!"(Jstring2 $@$NJ8;z$h$j(J $@<-=q=gE*$KBg$-$$$+Ey$7$$>l9g!"0lCW$7$J$$:G=i$NJ8;z0LCV$rJV$7!"(J $@$=$l0J30$O(J nil $@$rJV$9!#BgJ8;z$H>.J8;z$NAj0c$O6hJL$9$k!#(J <$@Nc(J> (common:string>= "ab" "ab") -> 0 (common:string>= "ab" "cd") -> nil (common:string>= "cd" "ab") -> 0 (common:string>= "$@$"(J" "$@$!(J") -> 0 (common:string>= "$@$+$-(J" "$@$/$1(J") -> nil $@!w(J stringp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : stringp arg arg $@$,J8;zNs!JJ8;zNs$^$?$O#1$D$NJ8;z!K$J$i!"(Jarg $@$rJV$7!"(J $@$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (stringp "") -> "" (stringp "string") -> "string" (stringp 'string) -> nil (stringp 123) -> nil $@!w(J common:stringp $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : common:stringp &rest arg arg $@$,J8;zNs$J$i(J arg $@!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (common:stringp "") -> nil (common:stringp "a") -> nil (common:stringp "string") -> "string" (common:stringp 'string) -> nil (common:stringp 123) -> nil $@!w(J sublis $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : sublis a-list tree &key :test :test-not :key $@LZ9=B$(J tree $@$N%*%V%8%'%/%H$N$&$A!"O"A[%j%9%H(J a-list $@$N$$$:$l$+$N(J car $@It(J $@$H0lCW$9$k$b$N$r!"$=$N(J car $@It$KBP1~$9$k(J cdr $@It$KJQ99$7$F!"JQ99$7$?LZ$r(J $@JV$9(J (tree $@$OGK2u$5$l$J$$(J)$@!#(Jnsublis $@$OGK2uHG!#(J <$@Nc(J> (sublis '((Kanto . Japan) (Japan . Osaka)) '(Tokyo is Kanto)) -> (Tokyo is Japan) $@!w(J sublisq $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sublisq a-list tree tree $@Fb$N%7%s%\%k$r!"O"A[%j%9%H(J a-list $@$N(J cdr $@It$HCV$-49$($k$3$H$K(J $@$h$C$F?7$7$$LZ$r:n$j!"$=$N7k2L$rJV$9!#CV$-49$($O (sublisq '((man . woman) (strong . weak)) '(man is very strong)) -> (woman is very weak) (sublisq '((1 . A) (11 . J) (12 . Q) (13 . K)) '(1 12 13 2 12 1 13)) -> (A Q K 2 Q A K) x = (a (b c) (d (e f))) $@$J$i(J (eq (sublisq '((aa . 11) (bb . 22)) x) x) -> t $@!w(J sublisq-copy $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sublisq-copy a-list tree tree $@Fb$N%7%s%\%k$r!"O"A[%j%9%H(J a-list $@$N(J cdr $@It$HCV$-49$($k$3$H$K(J $@$h$C$F?7$7$$LZ$r:n$j!"$=$N7k2L$rJV$9!#CV$-49$($O x = (a (b c) (d (e f))) $@$J$i(J (eq (sublisq-copy '((aa . 11) (bb . 22)) x) x) -> nil $@!w(J subpackages $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : subpackages &opt package package $@$KB0$9$k$9$Y$F$N%Q%C%1!<%8L>$r%j%9%H$K$7$FJV$9!#(Jpackage $@$N(J $@4{DjCM$O%+%l%s%H%Q%C%1!<%8!#(J <$@Nc(J> (package-name (subpackages)) -> nil (package-name (subpackages sys:univ-package)) -> ("apropos" "net" "step" "bas" "sys" "key") $@!w(J subseq $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : subseq seq start &opt end $@%7!<%1%s%9(J seq $@$N(J start $@$+$i(J end $@$^$G$rJV$9!#JV$5$l$kItJ,%7!<%1%s%9$N(J $@7?$O85$N%7!<%1%s%9$HF1$87?!#(J <$@Nc(J> (subseq "abcdefg" 2) -> "cdefg" (subseq "abcdefg" 1 4) -> "bcd" (subseq '(a b c d e) 1 4) -> (b c d) (subseq #(a b c d e f) 0 3) ->{vector}183855(common:simple-general-vector . 3) $@!w(J subset $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subset pred list list $@$+$i!">r7o(J pred $@$rK~B-$7$J$$MWAG$r$9$Y$F:o=|$7!"$=$N7k2L$N>.$5$/(J $@$J$C$?%j%9%H$rJV$9(J ( list $@$OGK2u$5$l$J$$(J)$@!#(J pred $@$O0z?t$r(J 1 $@$D$@$1$H$k!#(J <$@Nc(J> x = (1 a 2 b 3 c 4 d 5) (subst #'integerp x) -> (1 2 3 4 5) x -> (1 a 2 b 3 c 4 d 5) $@!w(J subset-not $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subset-not pred list list $@$+$i!">r7o(J pred $@$rK~B-$7$J$$MWAG$r$9$Y$F:o=|$7!"$=$N7k2L$N>.$5$/(J $@$J$C$?%j%9%H$rJV$9(J ( list $@$OGK2u$5$l$J$$(J)$@!#(Jpred $@$O0z?t$r(J 1 $@$D$@$1$H$k!#(J (subset-not x y) = (rem-if x y) <$@Nc(J> x = (1 a 2 b 3 c 4 d 5) (subst-not #'integerp x) -> (a b c d) x -> (1 a 2 b 3 c 4 d 5) $@!w(J subsetp $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subsetp list1 list2 &key :test :test-not :key list1 $@$N$9$Y$F$NMWAG$,!"(Jlist2 $@$K$"$k>l9g$O(J t $@$rJV$7!"$=$&$G$J$1$l$P(J nil $@$rJV$9!#(J <$@Nc(J> (subset '(a b) '(a b c d)) -> t (subset '(a b) '(c d)) -> nil $@!w(J subst $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subst new old tree &key :test :test-not :key tree $@$NA4$F$NI{LZKt$OMU$r%3%T!<$7!"$=$N%3%T!<$7$?LZ$NI{LZKt$OMU(J old $@$r(J new $@$G=q$-49$(!"JV$9(J ($@HsGK2uE*(J)$@!#(Jnsubst $@$OGK2uHG!#(J <$@Nc(J> x = (shakespeare wrote (the hurricane)) (subst 'tempest 'harricane x) -> (shakespeare wrote (the tempest)) x -> (shakespeare wrote (the hurricane)) $@!w(J subst-if $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subst-if new test tree &key :key tree $@$NI{LZKt$OMU$r$9$Y$F%3%T!<$7!"$=$l$i$N$&$A!">r7o(J test $@$rK~B-$9$k(J $@I{LZKt$OMU$r(J new $@$G=q$-49$(!"$=$N7k2L$rJV$9!#(J tree $@$OGK2u$5$l$J$$!#(J nsubst-if $@$OGK2uHG!#(J <$@Nc(J> x = (("asd" . asd) (qwe . "qwe")) (subst-if 'a #'stringp x ) -> ((a . asd) (qwe .a)) x -> (("asd" . asd) (qwe . "qwe")) $@!w(J subst-if-not $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : subst-if-not new test tree &key :key tree $@$NI{LZKt$OMU$r$9$Y$F%3%T!<$7!"$=$l$i$N$&$A!">r7o(J test $@$rK~B-$7$J(J $@$$I{LZKt$OMU$r(J new $@$G=q$-49$((J ($@HsGK2uE*(J)$@!"$=$N7k2L$rJV$9!#(J nsubst-if-not $@$OGK2uHG!#(J $@!w(J substitute $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : substitute newitem olditem seq &key :from-end :test :test-not :start :end :count :key $@%7!<%1%s%9(J seq $@$N(J :start $@$+$i(J :end $@$^$G$NHO0O$G!"(Jolditem $@$r(J :count $@8D$@(J $@$1!"(Jnewitem $@$K2>$KJQ99$7!"$=$N7k2L$rJV$9!#(Jnsubstitute $@$OGK2uHG!#(J <$@Nc(J> (!x '(1 2 4 1 3 4 5)) -> (1 2 4 1 3 4 5) (substitute 9 4 x) -> (1 2 9 1 3 9 5) (substitute 9 4 x :count 1 :from-end t) -> (1 2 4 1 3 9 5) (substitute 9 3 x :test #'>) -> (9 9 4 9 3 4 5) x -> (1 2 4 1 3 4 5) $@!w(J substitute-if $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : substitute-if newitem test seq &key :from-end :start :end :count :key $@%7!<%1%s%9(J seq $@$N(J :start $@$+$i(J :end $@$^$G$NHO0O$G!">r7o(J test $@$rK~B-$9$k(J $@MWAG$r(J :count $@8D$@$1!"(Jnewitem $@$K2>$KJQ99$7!"$=$N7k2L$rJV$9!#(J nsubstitute-if $@$OGK2uHG!#(J <$@Nc(J> (!x '(1 2 4 1 3 4 5)) -> (1 2 4 1 3 4 5) (substitute-if 9 #'oddp x) -> (9 2 4 9 9 4 9) (substitute-if 9 #'evenp x :count 1 :from-end t) -> (1 2 4 1 3 9 5) x -> (1 2 4 1 3 4 5) $@!w(J substitute-if-not $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : substitute-if-not newitem test seq &key :from-end :start :end :count :key $@%7!<%1%s%9(J seq $@$N(J :start $@$+$i(J :end $@$^$G$NHO0O$G!">r7o(J test $@$rK~B-$7$J$$(J $@MWAG$r(J :count $@8D$@$1!"(Jnewitem $@$K2>$KJQ99$7!"$=$N7k2L$rJV$9!#(J nsubstitute-if-not $@$OGK2uHG!#(J <$@Nc(J> (!x '(1 2 4 1 3 4 5)) -> (1 2 4 1 3 4 5) (substitute-if-not 9 #'oddp x) -> (1 9 9 1 3 9 5) (substitute-if-not 9 #'evenp x :count 1 :from-end t) -> (1 2 4 1 3 4 9) x -> (1 2 4 1 3 4 5) $@!w(J substqu $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : substqu new old tree tree $@Fb$N!"(Jold $@$H(J equal $@$G$"$kMWAG$r!"(Jnew $@$HCV$-49$(!"$=$N7k2L$rJV$9!#(J tree $@$r%3%T!<$7$F=$@5$9$k$N$G!"$3$NA`:n$OHsGK2uE*!#(Jnsubstqu $@$OGK2uHG!#(J <$@Nc(J> x = (a b (bar . c) bar . bar) (substqu 'foo 'bar x) -> (a b (foo . c) foo . foo) x -> (a b (bar . c) bar . bar) $@!w(J substring $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : substring string start &opt end stirng $@$N(J start $@HVL\$+$i(J (end-1) $@HVL\$^$G$NJ8;z$+$i$J$kItJ,J8;zNs$r:n$j!"(J $@$=$N%3%T!<$rJV$9!#JV$5$l$kJ8;zNs$ND9$5$O!"(Jend $@$G;XDj$5$l$?J8;z0LCV$+$i(J start $@$G;XDj$5$l$?J8;z0LCV$r$R$$$?$b$N!#(J end $@$N>JN,;~$O(J string $@$N=*$o$j(J $@$^$G$rJV$9!#(Jstart $@$H(J end $@$OIi$N?t$G$b$h$$$,!"$3$N>l9g$O5U%$%s%G%C%/%9$H(J $@$J$k!#Nc$($P(J "abcd" $@$NCf$N(J a, b, c, d $@$N0LCV$r<($95U%$%s%G%C%/%9$O3F!9(J -4, -3, -2, -1$@!#$3$N$h$&$J=hM}$r$9$k>l9g$O!"(Jnsubstring $@$r;H$C$?J}$,$h(J $@$$!#0z?t$O%9%H%j%s%0$+%"%H%`$G$J$1$l$P$J$i$J$$!#(J <$@Nc(J> (substring "abcd" 2 3) -> "c" (substring "abcd" 2) -> "cd" (substring 'abcdefg 3 0) -> "" (substring "$@;d$O=w$N;R$G$9!#(J" 4) -> "$@;R$G$9!#(J" (substring "$@;d$O=w$N;R$G$9!#(J" 3 6) -> "$@$N;R$G(J" $@!w(J subtypep $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : subtypep type1 type2 $@CM$r(J 2 $@$DJV$9!#:G=i$NCM$O!"(Jtype1 $@$,(J type2 $@$N%5%V%?%$%W$J$i$P(J non-nil$@!"$=$&$G$J$1$l$P(Jnil $@!#Bh(J 2 $@$NCM$O:G=i$KJV$5$l$?CM$N3N (subtype 'fixnum 'integer) -> !(t t) (subtype 'list 'string) -> !(nil t) (deftype str-cha () '(or character (satisfies stringp))) -> str-cha (subtype character str-cha) -> !(t t) (subtype string str-cha) -> !(nil nil) $@!w(J super $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : super 'super-message &rest args $@%/%i%9(J A $@$,%a%C%;!<%8(J x $@$r!"%/%i%9(J B (A $@$N%9!<%Q%/%i%9(J) $@$,F1L>$N%a%C%;(J $@!<%8(J x $@$r;}$D$H$9$k!#(JA $@$N%a%=%C%IFb$G$O!"DL>o$N(J x $@$rAw$kJ}K!$K$h$C$F(J B $@$N(J x $@$rAw$k$3$H$O$G$-$J$$!#(Jsuper $@$O(J (super B.x) $@$H$$$&<0$K$h$C$F(J A $@$N%a(J $@%=%C%IFb$G(J B $@$N%a%C%;!<%8$rAw$l$k$h$&$K$9$k!#(Jsuper $@$O%a%=%C%IFb$G$N$_;H(J $@$($k!#(Jx $@$r(J self (defmethod $@;2>H(J) $@$XAw$j!"$3$l$G%9!<%Q%/%i%9(J B $@$N%a%=%C(J $@%I(J x $@$, (defclass a () ((aa 1)) () :gettable) -> a (defclass b () ((bb 1)) (a) :gettable) -> b (defmethod (a mult) () (!!* !aa 2)) -> mult (defmethod (b mult) () (!!* !bb 3)) -> mult (defmethod (b multi) () (super a.mult)) -> multi (!ainst (make-instance 'a)) -> {udo}56789a (!binst (make-instance 'b)) -> {udo}56819b [ainst mult] -> 2 [ainst aa] -> 2 [binst mult] -> 3 [binst aa] -> 1 [binst bb] -> 3 [binst multi] -> 2 [binst aa] -> 2 $@!w(J svref $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : svref vector integer $@0lHLC1=c%Y%/%?(J vector $@$N(J integer $@HVL\$NCM$rJV$9(J ($@MWAG$N0LCV$O(J 0 $@$+$i?t$($k(J)$@!#(J <$@Nc(J> (!v (vector 1 2 3 4 5)) -> {vector}1844308(common:simple-general-vector . 5) (svref v 2) -> 3 (setf (svref v 2) 6) -> 6 (show-vector v) -> vtitle: common:simple-general-vector vsize: 5 0 kdr: 1 1 kar: 2 2 kdr: 6 3 kar: 4 4 kdr: 5 {vector}1844308(common:simple-general-vector . 5) $@!w(J sxhash $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : sxhash object object $@$KBP$9$k%O%C%7%e%3!<%I$r7W;;$7!"$=$N7k2L$rIi$G$J$$8GDj>.?tE@?t(J (fixnum) $@$H$7$FJV$9!#(J <$@Nc(J> (sxhash 'a) -> 97 (sxhash 'b) -> 98 (sxhash 'z) -> 122 (sxhash 'xyz) -> 856 $@!w(J symbol-function $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : symbol-function symbol symbol $@$N%0%m!<%P%k4X?tDj5A$rJV$9!#4X?tDj5A$r;}$C$F$$$J$$$J$i$P%(%i!<(J $@$r<($9!#FC$K(J Lisp $@$NCf$KKd$a9~$^$l$k8@8l$N%$%s%?%W%j%?$r:n@.$9$k$H$-(J $@$KJXMx!#(J <$@Nc(J> (symbol-function 'car) -> {applobj}24312(#!subr . 6) (de ufo (x) (car x)) -> ufo (symbol-function 'ufo) -> {applobj}39257(#!expr-simple . 6) (defun foo (x) (cdr x)) -> foo (symbol-function 'foo) -> {applobj}30288(#!exprdyn-simple . 6) (symbol-function 'aho) -> nil $@!w(J symbol-name $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : symbol-name symbol symbol $@$N0u;zL>$rJV$9!#(J (symbol-name x) = (pname x) <$@Nc(J> (symbol-name 'xyz) -> "xyz" (symbol-name "abc") -> "abc" (!a '(1 2 3)) -> (1 2 3) (symbol-name a) -> "(1 2 3)" $@!w(J symbol-package $@4X?t(J[#!expr] <$@@bL@(J> $@7A<0(J : symbol-package symbol symbol $@$,=jB0$9$k%Q%C%1!<%8L>$rJV$9!#(J <$@Nc(J> (package-name (symbol-package 'car)) -> "bas" $@!w(J symbol-plist $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : symbol-plist id plist $@$NJLL>4X?t!#%7%s%\%k(J id $@$NB0@-%j%9%H$rJV$9!#(J <$@Nc(J> aa $@$NB0@-%j%9%H$r(J (p 1 q 2 r 3) $@$H$9$k(J (symbol-plist 'aa) -> (p 1 q 2 r 3) (!(symbol-plist 'aaa) '(a 1 b 2 c 3 d 4)) -> (a 1 b 2 c 3 d 4) aaa $@$NB0@-%j%9%H$O(J (a 1 b 2 c 3 d 4) $@!w(J symbol-value $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : symbol-value var $@%9%Z%7%c%kJQ?t(J var $@$N8=:_CM$rJV$9!#(J <$@Nc(J> (!x '(a b c)) (symbol-value 'x) -> (a b c) (symbol-value 'y) -> (unbound-variable y) (prog (p) (!p 3) (symbol-value 'p)) -> (unbound-variabl p) (prog (p) (special-variables p) (!p 23) (symbol-value 'p)) -> 23 $@!w(J symbolp $@4X?t(J[#!subr] <$@@bL@(J> $@7A<0(J : symbolp object object $@$,%7%s%\%k$J$i(J object $@$rJV$7!"$=$l0J30$J$i(J nil $@$rJV$9!#(J <$@Nc(J> (symbolp 'asdf) -> asdf (symbolp '_x) -> _x (symbolp "asdf") -> nil (symbolp #!expr) -> nil $@!w(J symeval $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : symeval symbol symbol $@$N:G?7$NCM$rJV$9!#CM$r$b$C$F$$$J$1$l$P%(%i!<$rJV$9!#(J <$@Nc(J> (setq x '(a b c)) (symeval 'x) -> (a b c) (symeval 'y) -> (unbound-variable y nil) $@!w(J bas:sysmode $@L$%$%s%W%j%a%s%H(J $@4X?t(J[#!macro] <$@@bL@(J> $@7A<0(J : bas:sysmode &opt 'key 'num key --> :bic num --> $@%S%C%H0LCV(J (8 $@?J?t(J) :bis :xor :and sysmode ($@%7%9%F%`%b!<%I$H%f!<%6%b!<%I(J)$@$N$?$a$N%S%C%H%F!<%V%k!#(J * $@$N$D$$$?%S%C%H$O!"%f!<%6%b!<%IMQ!#(J 0-1 gc mode ($@A4%9%?%C%/%0%k!<%W$KBP$7$FBg0hE*(J) 0 gc $@Cf$G$J$$(J 1 $@%^!<%-%s%0%U%'!<%:uBV(J 8* $@8=:_$N%W%m%;%9$NFC8"(J 0 $@8=:_$N%W%m%;%9$OFC8"$r;}$D(J 1 $@8=:_$N%W%m%;%9$OFC8"$r;}$D(J 9* $@#1J8;z%9%H%j%s%0!J(Jone character string$@!K(J 0 $@#1J8;z%9%H%j%s%0$N%G!<%?%?%$%W$O%-%c%i%/%?(J 1 $@#1J8;z%9%H%j%s%0$N%G!<%?%?%$%W$O%9%H%j%s%0(J 10* Common Lisp $@%b!<%I(J 0 Common Lisp $@%b!<%I$G$O$J$$(J 1 Common Lisp $@%b!<%I(J 11* $@%Q%C%1!<%8;HMQ$NFC8"(J 0 $@FC8"$O(J on 1 $@FC8"$O(J off $@!w(J systat $@4X?t(J[#!expr] <$@@bL@(J> $@%7%9%F%`$N8=:_$N>uBV$,%W%j%s%H$5$l$k!#(J <$@Nc(J> (systat) [Cobalt-Systat] load-min: 20% load-sec: 0% 28-Apr-87 9:43:44 Job Line Process Job Status Time Bottom ---------------------------------------------------------------------- 3* 1 yukari top-level input-wait 0:01:05 15 6 0 kamio top-level input-wait 0:00:07 15 7 6 suzuki z running 0:00:10 5 0 0 system interrupt-character mail-wait 0:00:08 0 1 4 system login input-wait 0:00:00 2 $@!w(J