From: Sam S. <sd...@gn...> - 2004-08-02 20:11:16
|
release J 0.20.2 on w2k. I have these in a lisp file buffer: (defun cycle-length (n &optional (len 1) (top 0)) (cond ((= n 1) (values len top)) ((evenp n) (cycle-length (ash n -1) (1+ len) (max top n))) (t (let ((next (1+ (* 3 n)))) (cycle-length next (1+ len) (max top next)))))) (defun max-cycle-length (n m) (loop :with arg :and len = 0 :and top :for i :from n :to m :do (multiple-value-bind (le to) (cycle-length i) (when (> (integer-length to) 32) (format t "~:D --> ~:D, ~:D~%" i le to)) (when (> le len) (setq arg i len le top to))) :finally (return (values arg len top)))) I evaluate them with C-M-e and type (compile 'cycle-length) and (compile 'max-cycle-length) by hand [why isn't there a key for this?] in the embedded lisp buffer, and then (MAX-CYCLE-LENGTH 1000000 2000000) and get a stack overflow: CL-USER(9): (max-cycle-length 1000000 2000000) Error: stack overflow. BREAK called. Type :CONTINUE to return from break or :RESET to return to top level. [1] CL-USER(10): :bt 0: (1+ 189) 1: (CYCLE-LENGTH 1336 189 6750052) 2: (CYCLE-LENGTH 445 188 6750052) 3: (CYCLE-LENGTH 890 187 6750052) 4: (CYCLE-LENGTH 1780 186 6750052) 5: (CYCLE-LENGTH 593 185 6750052) 6: (CYCLE-LENGTH 1186 184 6750052) 7: (CYCLE-LENGTH 395 183 6750052) 8: (CYCLE-LENGTH 790 182 6750052) 9: (CYCLE-LENGTH 263 181 6750052) 10: (CYCLE-LENGTH 526 180 6750052) 11: (CYCLE-LENGTH 175 179 6750052) 12: (CYCLE-LENGTH 350 178 6750052) 13: (CYCLE-LENGTH 700 177 6750052) 14: (CYCLE-LENGTH 233 176 6750052) 15: (CYCLE-LENGTH 466 175 6750052) 16: (CYCLE-LENGTH 155 174 6750052) 17: (CYCLE-LENGTH 310 173 6750052) 18: (CYCLE-LENGTH 103 172 6750052) 19: (CYCLE-LENGTH 206 171 6750052) 20: (CYCLE-LENGTH 412 170 6750052) 21: (CYCLE-LENGTH 137 169 6750052) 22: (CYCLE-LENGTH 274 168 6750052) 23: (CYCLE-LENGTH 91 167 6750052) 24: (CYCLE-LENGTH 182 166 6750052) 25: (CYCLE-LENGTH 364 165 6750052) 26: (CYCLE-LENGTH 121 164 6750052) 27: (CYCLE-LENGTH 242 163 6750052) 28: (CYCLE-LENGTH 484 162 6750052) 29: (CYCLE-LENGTH 161 161 6750052) 30: (CYCLE-LENGTH 322 160 6750052) 31: (CYCLE-LENGTH 107 159 6750052) 32: (CYCLE-LENGTH 214 158 6750052) 33: (CYCLE-LENGTH 71 157 6750052) 34: (CYCLE-LENGTH 142 156 6750052) 35: (CYCLE-LENGTH 47 155 6750052) 36: (CYCLE-LENGTH 94 154 6750052) 37: (CYCLE-LENGTH 188 153 6750052) 38: (CYCLE-LENGTH 376 152 6750052) 39: (CYCLE-LENGTH 125 151 6750052) 40: (CYCLE-LENGTH 250 150 6750052) 41: (CYCLE-LENGTH 83 149 6750052) 42: (CYCLE-LENGTH 166 148 6750052) 43: (CYCLE-LENGTH 55 147 6750052) 44: (CYCLE-LENGTH 110 146 6750052) 45: (CYCLE-LENGTH 220 145 6750052) 46: (CYCLE-LENGTH 73 144 6750052) 47: (CYCLE-LENGTH 146 143 6750052) 48: (CYCLE-LENGTH 292 142 6750052) 49: (CYCLE-LENGTH 97 141 6750052) 50: (CYCLE-LENGTH 194 140 6750052) 51: (CYCLE-LENGTH 388 139 6750052) 52: (CYCLE-LENGTH 776 138 6750052) 53: (CYCLE-LENGTH 1552 137 6750052) 54: (CYCLE-LENGTH 3104 136 6750052) 55: (CYCLE-LENGTH 6208 135 6750052) 56: (CYCLE-LENGTH 2069 134 6750052) 57: (CYCLE-LENGTH 4138 133 6750052) 58: (CYCLE-LENGTH 1379 132 6750052) 59: (CYCLE-LENGTH 2758 131 6750052) 60: (CYCLE-LENGTH 919 130 6750052) 61: (CYCLE-LENGTH 1838 129 6750052) 62: (CYCLE-LENGTH 3676 128 6750052) 63: (CYCLE-LENGTH 1225 127 6750052) 64: (CYCLE-LENGTH 2450 126 6750052) 65: (CYCLE-LENGTH 4900 125 6750052) 66: (CYCLE-LENGTH 1633 124 6750052) 67: (CYCLE-LENGTH 3266 123 6750052) 68: (CYCLE-LENGTH 6532 122 6750052) 69: (CYCLE-LENGTH 2177 121 6750052) 70: (CYCLE-LENGTH 4354 120 6750052) 71: (CYCLE-LENGTH 1451 119 6750052) 72: (CYCLE-LENGTH 2902 118 6750052) 73: (CYCLE-LENGTH 967 117 6750052) 74: (CYCLE-LENGTH 1934 116 6750052) 75: (CYCLE-LENGTH 3868 115 6750052) 76: (CYCLE-LENGTH 1289 114 6750052) 77: (CYCLE-LENGTH 2578 113 6750052) 78: (CYCLE-LENGTH 859 112 6750052) 79: (CYCLE-LENGTH 1718 111 6750052) 80: (CYCLE-LENGTH 3436 110 6750052) 81: (CYCLE-LENGTH 1145 109 6750052) 82: (CYCLE-LENGTH 2290 108 6750052) 83: (CYCLE-LENGTH 4580 107 6750052) 84: (CYCLE-LENGTH 9160 106 6750052) 85: (CYCLE-LENGTH 3053 105 6750052) 86: (CYCLE-LENGTH 6106 104 6750052) 87: (CYCLE-LENGTH 2035 103 6750052) 88: (CYCLE-LENGTH 4070 102 6750052) 89: (CYCLE-LENGTH 8140 101 6750052) 90: (CYCLE-LENGTH 16280 100 6750052) 91: (CYCLE-LENGTH 32560 99 6750052) 92: (CYCLE-LENGTH 10853 98 6750052) 93: (CYCLE-LENGTH 21706 97 6750052) 94: (CYCLE-LENGTH 7235 96 6750052) 95: (CYCLE-LENGTH 14470 95 6750052) 96: (CYCLE-LENGTH 4823 94 6750052) 97: (CYCLE-LENGTH 9646 93 6750052) 98: (CYCLE-LENGTH 3215 92 6750052) 99: (CYCLE-LENGTH 6430 91 6750052) 100: (CYCLE-LENGTH 12860 90 6750052) 101: (CYCLE-LENGTH 25720 89 6750052) 102: (CYCLE-LENGTH 8573 88 6750052) 103: (CYCLE-LENGTH 17146 87 6750052) 104: (CYCLE-LENGTH 34292 86 6750052) 105: (CYCLE-LENGTH 68584 85 6750052) 106: (CYCLE-LENGTH 22861 84 6750052) 107: (CYCLE-LENGTH 45722 83 6750052) 108: (CYCLE-LENGTH 91444 82 6750052) 109: (CYCLE-LENGTH 182888 81 6750052) 110: (CYCLE-LENGTH 365776 80 6750052) 111: (CYCLE-LENGTH 121925 79 6750052) 112: (CYCLE-LENGTH 243850 78 6750052) 113: (CYCLE-LENGTH 487700 77 6750052) 114: (CYCLE-LENGTH 975400 76 6750052) 115: (CYCLE-LENGTH 325133 75 6750052) 116: (CYCLE-LENGTH 650266 74 6750052) 117: (CYCLE-LENGTH 216755 73 6750052) 118: (CYCLE-LENGTH 433510 72 6750052) 119: (CYCLE-LENGTH 144503 71 6750052) 120: (CYCLE-LENGTH 289006 70 6750052) 121: (CYCLE-LENGTH 96335 69 6750052) 122: (CYCLE-LENGTH 192670 68 6750052) 123: (CYCLE-LENGTH 64223 67 6750052) 124: (CYCLE-LENGTH 128446 66 6750052) 125: (CYCLE-LENGTH 42815 65 6750052) 126: (CYCLE-LENGTH 85630 64 6750052) 127: (CYCLE-LENGTH 171260 63 6750052) 128: (CYCLE-LENGTH 342520 62 6750052) 129: (CYCLE-LENGTH 114173 61 6750052) 130: (CYCLE-LENGTH 228346 60 6750052) 131: (CYCLE-LENGTH 76115 59 6750052) 132: (CYCLE-LENGTH 152230 58 6750052) 133: (CYCLE-LENGTH 50743 57 6750052) 134: (CYCLE-LENGTH 101486 56 6750052) 135: (CYCLE-LENGTH 202972 55 6750052) 136: (CYCLE-LENGTH 67657 54 6750052) 137: (CYCLE-LENGTH 135314 53 6750052) 138: (CYCLE-LENGTH 270628 52 6750052) 139: (CYCLE-LENGTH 90209 51 6750052) 140: (CYCLE-LENGTH 180418 50 6750052) 141: (CYCLE-LENGTH 60139 49 6750052) 142: (CYCLE-LENGTH 120278 48 6750052) 143: (CYCLE-LENGTH 240556 47 6750052) 144: (CYCLE-LENGTH 80185 46 6750052) 145: (CYCLE-LENGTH 160370 45 6750052) 146: (CYCLE-LENGTH 320740 44 6750052) 147: (CYCLE-LENGTH 106913 43 6750052) 148: (CYCLE-LENGTH 213826 42 6750052) 149: (CYCLE-LENGTH 71275 41 6750052) 150: (CYCLE-LENGTH 142550 40 6750052) 151: (CYCLE-LENGTH 285100 39 6750052) 152: (CYCLE-LENGTH 95033 38 6750052) 153: (CYCLE-LENGTH 190066 37 6750052) 154: (CYCLE-LENGTH 63355 36 6750052) 155: (CYCLE-LENGTH 126710 35 6750052) 156: (CYCLE-LENGTH 253420 34 6750052) 157: (CYCLE-LENGTH 84473 33 6750052) 158: (CYCLE-LENGTH 168946 32 6750052) 159: (CYCLE-LENGTH 56315 31 6750052) 160: (CYCLE-LENGTH 112630 30 6750052) 161: (CYCLE-LENGTH 225260 29 6750052) 162: (CYCLE-LENGTH 450520 28 6750052) 163: (CYCLE-LENGTH 150173 27 6750052) 164: (CYCLE-LENGTH 300346 26 6750052) 165: (CYCLE-LENGTH 100115 25 6750052) 166: (CYCLE-LENGTH 200230 24 6750052) 167: (CYCLE-LENGTH 66743 23 6750052) 168: (CYCLE-LENGTH 133486 22 6750052) 169: (CYCLE-LENGTH 44495 21 6750052) 170: (CYCLE-LENGTH 88990 20 6750052) 171: (CYCLE-LENGTH 177980 19 6750052) 172: (CYCLE-LENGTH 355960 18 6750052) 173: (CYCLE-LENGTH 711920 17 6750052) 174: (CYCLE-LENGTH 1423840 16 6750052) 175: (CYCLE-LENGTH 2847680 15 6750052) 176: (CYCLE-LENGTH 5695360 14 6750052) 177: (CYCLE-LENGTH 1898453 13 6750052) 178: (CYCLE-LENGTH 3796906 12 6750052) 179: (CYCLE-LENGTH 1265635 11 6750052) 180: (CYCLE-LENGTH 2531270 10 6750052) 181: (CYCLE-LENGTH 5062540 9 6750052) 182: (CYCLE-LENGTH 1687513 8 6750052) 183: (CYCLE-LENGTH 3375026 7 6750052) 184: (CYCLE-LENGTH 6750052 6 6750052) 185: (CYCLE-LENGTH 2250017 5 4500034) 186: (CYCLE-LENGTH 4500034 4 4500034) 187: (CYCLE-LENGTH 1500011 3 3000022) 188: (CYCLE-LENGTH 3000022 2 3000022) 189: (CYCLE-LENGTH 1000007) 190: (MAX-CYCLE-LENGTH 1000000 2000000) 191: (SYSTEM::INTERACTIVE-EVAL (MAX-CYCLE-LENGTH 1000000 2000000)) 192: (TOP-LEVEL::REPL) 193: (TOP-LEVEL::TOP-LEVEL-LOOP) [1] CL-USER(11): I cannot run a separate lisp process: "jpty not found in PATH" -- how do I tell J where to look for jpty? I don't want to change PATH. when I ran J from a command line, it somehow did find jpty and failed on stack of 460 instead of 190. also, COMPILE-FILE does not create any files (and appears to do nothing at all) -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> People hear what they want to hear and discard the rest. |
From: Andras S. <as...@ma...> - 2004-08-02 20:30:38
|
On Mon, 2 Aug 2004, Sam Steingold wrote: > release J 0.20.2 on w2k. That may be the problem (I don't mean w2k :-)). Try the CVS version. > also, COMPILE-FILE does not create any files > (and appears to do nothing at all) Then it's definitely an obsolete version. Andras |
From: Sam S. <sd...@gn...> - 2004-08-02 20:37:07
|
> * Andras Simon <nfvzba@zngu.ozr.uh> [2004-08-02 22:30:25 +0200]: > > On Mon, 2 Aug 2004, Sam Steingold wrote: > >> release J 0.20.2 on w2k. > > That may be the problem (I don't mean w2k :-)). Try the CVS version. cd src && /cygdrive/c/java/bin/jar cmf manifest ../j.jar Main.class org/armedbea r/j/*.class \ org/armedbear/j/version org/armedbear/j/build \ org/armedbear/j/images/*.png \ gnu/regexp/*.class gnu/regexp/MessagesBundle.properties \ org/armedbear/j/mail/*.class \ org/armedbear/j/jdb/*.class \ org/armedbear/j/*.keywords org/armedbear/j/mail/*.keywords \ org/armedbear/lisp/*.class org/armedbear/lisp/java/awt/*.class \ org/armedbear/lisp/*.lisp org/armedbear/lisp/build /cygdrive/c/java/bin/jar: argument list too long make: *** [j.jar] Error 2 -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> To understand recursion, one has to understand recursion first. |
From: Andras S. <as...@ma...> - 2004-08-02 21:07:08
|
On Mon, 2 Aug 2004, Sam Steingold wrote: >> * Andras Simon <nfvzba@zngu.ozr.uh> [2004-08-02 22:30:25 +0200]: >> >> On Mon, 2 Aug 2004, Sam Steingold wrote: >> >>> release J 0.20.2 on w2k. >> >> That may be the problem (I don't mean w2k :-)). Try the CVS version. > > cd src && /cygdrive/c/java/bin/jar cmf manifest ../j.jar Main.class org/armedbea > r/j/*.class \ > org/armedbear/j/version org/armedbear/j/build \ > org/armedbear/j/images/*.png \ > gnu/regexp/*.class gnu/regexp/MessagesBundle.properties \ > org/armedbear/j/mail/*.class \ > org/armedbear/j/jdb/*.class \ > org/armedbear/j/*.keywords org/armedbear/j/mail/*.keywords \ > org/armedbear/lisp/*.class org/armedbear/lisp/java/awt/*.class \ > org/armedbear/lisp/*.lisp org/armedbear/lisp/build > /cygdrive/c/java/bin/jar: argument list too long > make: *** [j.jar] Error 2 OK, I was wrong: (cyg)w2k _is_ a problem :-( But seriously, if you got this far, you can run j and/or abcl, just not from a jar file. Or you could try to create the jar file piecewise, with jar uf. Andras |
From: Sam S. <sd...@gn...> - 2004-08-02 21:41:06
|
> * Andras Simon <nfvzba@zngu.ozr.uh> [2004-08-02 23:07:05 +0200]: > > On Mon, 2 Aug 2004, Sam Steingold wrote: > >>> * Andras Simon <nfvzba@zngu.ozr.uh> [2004-08-02 22:30:25 +0200]: >>> >>> On Mon, 2 Aug 2004, Sam Steingold wrote: >>> >>>> release J 0.20.2 on w2k. >>> >>> That may be the problem (I don't mean w2k :-)). Try the CVS version. >> >> cd src && /cygdrive/c/java/bin/jar cmf manifest ../j.jar Main.class org/armedbea >> r/j/*.class \ >> org/armedbear/j/version org/armedbear/j/build \ >> org/armedbear/j/images/*.png \ >> gnu/regexp/*.class gnu/regexp/MessagesBundle.properties \ >> org/armedbear/j/mail/*.class \ >> org/armedbear/j/jdb/*.class \ >> org/armedbear/j/*.keywords org/armedbear/j/mail/*.keywords \ >> org/armedbear/lisp/*.class org/armedbear/lisp/java/awt/*.class \ >> org/armedbear/lisp/*.lisp org/armedbear/lisp/build >> /cygdrive/c/java/bin/jar: argument list too long >> make: *** [j.jar] Error 2 > > OK, I was wrong: (cyg)w2k _is_ a problem :-( > > But seriously, if you got this far, you can run j and/or abcl, just > not from a jar file. how? $ ./abcl Exception in thread "main" java.lang.NoClassDefFoundError: org/armedbear/lisp/Main $ ./j Usage: java [-options] class [args...] (to execute a class) or java -jar [-options] jarfile [args...] (to execute a jar file) where options include: -client to select the "client" VM -server to select the "server" VM -hotspot is a synonym for the "client" VM [deprecated] The default VM is client. -cp -classpath <directories and zip/jar files separated by ;> set search path for application classes and resources -D<name>=<value> set a system property -verbose[:class|gc|jni] enable verbose output -version print product version and exit -showversion print product version and continue -? -help print this help message -X print help on non-standard options -ea[:<packagename>...|:<classname>] -enableassertions[:<packagename>...|:<classname>] enable assertions -da[:<packagename>...|:<classname>] -disableassertions[:<packagename>...|:<classname>] disable assertions -esa | -enablesystemassertions enable system assertions -dsa | -disablesystemassertions disable system assertions > Or you could try to create the jar file piecewise, with jar uf. I could also run my lisp code in my head. PS. why aren't `announce' and `user' lists also available on gmane? -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Any programming language is at its best before it is implemented and used. |
From: Peter G. <pe...@ar...> - 2004-08-03 04:04:22
|
On Mon, 02 Aug 2004 at 17:40:55 -0400, Sam Steingold wrote: > > But seriously, if you got this far, you can run j and/or abcl, just > > not from a jar file. > > how? To run abcl, maybe this: java -cp C:\j\src org.armedbear.lisp.Main Or, to run j: java -cp C:\j\src Main assuming C:\j is the root of your j tree. In general, Windows support is a bit sketchy. In particular, the abcl and j shell scripts haven't been tested under Cygwin (only under Linux). > PS. why aren't `announce' and `user' lists also available on gmane? All the real action (such as it is) is on the development list. -Peter |