|
|
1.1 ! root 1: Sat Jul 30 15:37:40 1983 by layer ! 2: open code vset. Move all vector stuff to vector.l. ! 3: Files: func.l, decl.l, vector.l, and cmake.l ! 4: (new: version 8.33) ! 5: ! 6: Mon Jul 25 21:29:54 PDT 1983 by layer ! 7: fixed 'liszt' to mung object file header for the sun ! 8: File: tlev.l ! 9: (now: version 8.32) ! 10: ! 11: Mon Jul 25 07:05:49 1983 by jkf ! 12: fix bug whereby -mr would cause an 'comma not in backquote error' ! 13: because the escape character was / instead of \ when reading ! 14: /usr/lib/lisp/autorun.xxx ! 15: (now: version 8.31) ! 16: ! 17: Sat Jun 25 13:28:10 1983 by jkf ! 18: Turn off uctolc converstion before printing bindtab. ! 19: This is useful for liszt in opus 38.65 and greater since it ! 20: will eliminate unnecessary |'s in the bindtab if uctolc ! 21: is need to compile the file ! 22: (now: version 8.29) ! 23: ! 24: Thu Jun 16 21:52:59 1983 by jkf ! 25: fixed compilation of &aux for vax version. Now &aux (foo foo) ! 26: will work if foo is special. ! 27: (now: version 8.28) ! 28: ! 29: Wed May 4 18:32:46 1983 by layer ! 30: added sun autorun header to io.l ! 31: (now: version 8.27) ! 32: ! 33: Thu Mar 24 08:24:53 1983 by jkf ! 34: -x file will now be placed in the same place as the output ! 35: file (instead of the input file). ! 36: (now: version 8.25) ! 37: ! 38: Sat Mar 19 17:49:18 1983 by jkf ! 39: mixed in the 68k liszt source. ! 40: (now: version 8.24) ! 41: ! 42: Mon Mar 14 13:14:26 1983 by jkf ! 43: liszt used to open code 'times' if all operands were fixnums. ! 44: Thus (times 256 256 256 256) would open code to a 0 fixnum. ! 45: This is clearly wrong and liszt will now not convert times, add, ! 46: etc to their fixnum equivalents. If you want fixnum semantics ! 47: then you must use fixnums. ! 48: Another bug was fixed: d-functyp would return the wrong thing ! 49: give a name bound to a foreign function. now it returns 'lambda. ! 50: files affected: datab.l decl.l ! 51: (now: version 8.23) ! 52: ! 53: Tue Feb 22 08:43:44 1983 by jkf ! 54: force jump to vecindexerr to use 'jmp', since the object ! 55: file might be large and the assembler is stupid ! 56: (now: version 8.22) ! 57: ! 58: Thu Feb 10 20:39:42 1983 by jkf ! 59: open coded vectorp and vectorip, vsize-... ! 60: (now: version 8.21) ! 61: ! 62: Thu Jan 20 01:57:01 1983 by layer ! 63: Added three features to liszt command line processing: ! 64: -e <expr> evaluates <expr> before compilation. ! 65: -i <filename> loads <filename> before compilation. ! 66: -S -o filename names .s file. ! 67: file: tlev.l ! 68: (now: version 8.20) ! 69: ! 70: Mon Jan 17 09:41:12 1983 by jkf ! 71: added arg number checking and open coded &keywords. ! 72: (now: version 8.19) ! 73: ! 74: Sun Jan 16 10:05:01 1983 by jkf ! 75: fixed nasty bug in d-exp which would show up if a macro ! 76: returned a recursive call it itself ! 77: (now: version 8.18) ! 78: ! 79: Wed Jan 12 10:43:53 1983 by jkf ! 80: added open coding of vref functions ! 81: (now: version 8.17) ! 82: ! 83: Wed Oct 27 20:24:47 1982 by jkf ! 84: removed references to sys_ functions, replaced them with ! 85: sys: functions so code will be more portable. ! 86: file: tlev.l ! 87: ! 88: Wed Oct 27 08:15:14 1982 by jkf ! 89: discovered that making 'declare' a function is a bad idea because ! 90: if the compiler executes an interpreted function with local ! 91: declarations, those local declarations will seem like declarations ! 92: for the function begin compiled. Thus declare is no longer a ! 93: special function in the compiler: it must be seen by the compiler ! 94: to have an effect. Added the user callable function liszt-declare ! 95: which will have an effect just like declare used to: the compiler ! 96: will recognize it when compiling and it can be evaluated by a ! 97: user function. ! 98: (now: version 8.16) ! 99: ! 100: Mon Oct 25 22:55:37 1982 by jkf ! 101: removed If macro definition from cmacros.l . It is now in ! 102: the default franz. ! 103: ! 104: Mon Oct 25 09:15:18 1982 by jkf ! 105: catch the sigterm signal and die after removing the /tmp file. ! 106: (now: version 8.15) ! 107: ! 108: Tue Oct 19 15:56:07 1982 by jkf ! 109: fixed bugin cc-arg wherein a (arg (foo)) would be compiled ! 110: incorrectly (it was calling zerop on a non number). ! 111: Added checks for cmacro and macro-autoload properties. ! 112: When doing macro expansion, had it stop if the same car ! 113: was returned. ! 114: (now: version 8.14) ! 115: ! 116: Mon Oct 18 23:27:14 1982 by layer ! 117: Fixed bug in function cc-quote. Parens in an If statement ! 118: were messed up. ! 119: ! 120: Sat Oct 9 04:35:23 PDT 1982 by layer ! 121: Np-reg, Lbot-reg, oLbot-reg are now constants. Changes ! 122: made to expr.l and io.l. ! 123: ! 124: Thu Oct 7 01:02:26 1982 by jkf ! 125: fixed bug in the compiler. The compiler had neglected to enforce ! 126: the rule that 'macros' not be defined as local functions. ! 127: Now that is checked (modification to tlev.l). ! 128: ! 129: Wed Oct 6 22:53:36 1982 by jkf ! 130: added check to make sure that a file doesn't declare a function ! 131: to be local that has already had a compiled call made to it. ! 132: This is done by placing a t under indicator g-stdref for all ! 133: symbols called in the 'standard' way. ! 134: (now: version 8.13) ! 135: ! 136: Wed Oct 6 13:29:27 PDT 1982 by layer ! 137: put the loading of chead.l (in array.l datab.l decl.l expr.l ! 138: fixnum.l funa.l funb.l func.l io.l tlev.l util.l) under ! 139: include-if control. Also changed chead.l. ! 140: ! 141: Tue Oct 5 23:36:09 PDT 1982 by layer ! 142: removed function d-call from expr.l, since it isn't ! 143: used anymore. ! 144: ! 145: Tue Oct 5 23:00:09 PDT 1982 by layer ! 146: added sccs'ed file scmake.l, so that an all interp'd ! 147: version of the compiler can be made without deleting ! 148: all the .o files. Changes were also make to the Makefile. ! 149: snliszt (formerly slownliszt) now depends on source ! 150: files (like nliszt depends on .o files). ! 151: ! 152: Tue Oct 5 22:22:59 1982 by jkf ! 153: added argument checking. This involved mods to expr.l to ! 154: do the checking and to tlev.l to save argument number ! 155: info while compiling. The file /usr/lib/lisp/fcninfo.l ! 156: contains a description of what is known about C functions. ! 157: (now: version 8.12) ! 158: ! 159: Mon Oct 4 14:23:29 1982 by jkf ! 160: turn off [load ...] message when loading in lisztrc file ! 161: ! 162: Tue Sep 28 09:30:36 1982 by jkf ! 163: change tmp file name back to jkfnnnnn ! 164: (now: version 8.11) ! 165: ! 166: Wed Jul 21 13:43:56 PDT 1982 by layer ! 167: function "liszt" in tlev.l now returns the true assembler exit ! 168: status (if the compile goes that far). ! 169: ! 170: Sat Jul 3 18:01:25 1982 by jkf ! 171: open code getaux and getaccess ! 172: (now: version 8.10) ! 173: ! 174: Wed Jun 30 18:58:32 1982 by jkf ! 175: look for liszt rc files without extensions. now we look in ! 176: 12 places for the lisp init file: ! 177: { . , $HOME } { .lisztrc , lisztrc } { .o , .l , } ! 178: (now: version 8.09) ! 179: ! 180: Thu May 27 08:19:00 1982 by jkf ! 181: fixed bug in d-fixnump which caused liszt to assume too often that ! 182: arguments are all fixnums ! 183: (now: version 8.08) ! 184: ! 185: Wed May 12 13:46:03 1982 by jkf ! 186: new declaration scheme died when the object being declared ! 187: was a list. e.g (declare (fixnum (foo fixnum flonum)). ! 188: Fixed declare-handler so that cases like this are ignored. ! 189: (now: version 8.07) ! 190: ! 191: Fri May 7 19:28:04 1982 by jkf ! 192: allow (function (nlambda ()...)) and (function (lambda () ..)) ! 193: (now: version 8.06) ! 194: ! 195: Thu May 6 15:03:50 1982 by jkf ! 196: support local declarations. They are stacked on g-decls. ! 197: localf and macarray don't fit in too well, they should ! 198: be fixed. ! 199: fixnum declarations now have meaning. They will allow the ! 200: compiler to convert from functions like 'add1' to 1+. ! 201: 'declare' is now a function in the compiler so declarations ! 202: may be fasl'ed in. [this was removed Oct 27, 1982] ! 203: ! 204: Thu Apr 22 20:48:25 1982 by jkf ! 205: #' returns a symbol now, instead of the getd of the symbol. ! 206: This was required for maclisp compatibility. ! 207: (now: version 8.05) ! 208: ! 209: Wed Apr 21 07:50:41 1982 by jkf ! 210: load in init file before compiling. look in . first, then $HOME. ! 211: look for .liszt.o, .lisztrc.l, lisztrc.o, lisztrc.l ! 212: ! 213: Upon interrupt, remove temp file and exit ! 214: (now: version 8.04) ! 215: ! 216: Mon Apr 12 23:22:37 1982 by jkf ! 217: open code 'function'. Now it will cause another function to be ! 218: generated and compiled and the function call returns the ! 219: bcd header for the newly created function ! 220: liszt-process-forms may be filled with forms to compile while ! 221: compiling a form. Unlike liszt-eof-forms, liszt-process-forms ! 222: are compiled at the next opportunity. ! 223: (now: version 8.03) ! 224: ! 225: Wed Mar 31 08:47:46 1982 by jkf ! 226: fixed bug in which (> (or nil 9) 0) would return true. cc-eq ! 227: now rebinds g-trueop and g-falseop. (now: version 8.02) ! 228: ! 229: Wed Mar 31 08:24:27 1982 by jkf ! 230: added a new file to liszt: lversion.l It is not sccsed and it ! 231: just contains the version number. This will allow the version ! 232: number to be changed with ease whenever a modification is made. ! 233: start it at 8.01 (now: version 8.01) ! 234: ! 235: Fri Mar 19 11:17:12 1982 by jkf ! 236: did distribution. (now: version 8.00) ! 237: ! 238: Fri Feb 19 09:56:50 1982 by jkf ! 239: fixed e-docomment so that newlines in the comment will not ! 240: cause assembler problems [io.l] ! 241: ! 242: Wed Feb 17 12:46:24 1982 by jkf ! 243: to version 8.0 (to correspond with Opus 38) ! 244: ! 245: Wed Feb 10 21:28:41 1982 by jkf ! 246: fixed a bug in the return function and a possible bug in go. ! 247: both bugs have to do with returning or going through a ! 248: catch or errset, which is a pretty strange thing to do anyway. ! 249: The fix was to keep track of the number of catches and errsets ! 250: before the prog to be returned from or gone into. ! 251: I modified d-pushframe to always push 3 args, so we can know ! 252: how long each frame we pop will be. ! 253: Sat Dec 5 11:58:36 1981 by jkf ! 254: open coded boole (mods to decl.l and funa.l). used the open ! 255: coding capability of fixnums. ! 256: Added three internal functions fixnum-BitXor, fixnum-BitAndNot ! 257: fixnum-BitOr, which are the three functions which the vax ! 258: can do. ! 259: Mon Oct 26 21:15:36 1981 by jkf ! 260: fixed bug in d-supercxr (funa.l) which made this function ! 261: (cond ((setq y (cxr n zip)) (print 'hi)) ! 262: (t (print 'lo))) ! 263: always prints 'hi'. The problem was that only jump on true was ! 264: checked if the value of a cxr was stored somewhere. In the case ! 265: above we want to jump on nil. ! 266: ! 267: Sat Oct 24 16:41:03 1981 by jkf ! 268: -*- to version 7.1 -*- ! 269: Added the 'a' option to liszt, which if set will cause a ! 270: special form to be output after a function is defined. that special ! 271: form will put a 'fcn-info' property on the function's property ! 272: list. the form of the fcn-info property is ! 273: (argdesc compileinfo) ! 274: argdesc may be nil or (x . y), the later meaning that there are a ! 275: minumum of x args required and a maximum of y. Currently lexprs ! 276: just put 'nil' there, but soon I will introduce a way to declare ! 277: min and max args for lexprs via a declare. The compileinfo ! 278: is a string saying what file this came from and when it was ! 279: compiled. ! 280: ! 281: Wed Oct 21 20:19:53 1981 by jkf ! 282: added functions <&, =&, and >& which are fixnum only ! 283: versions of <,= and >. ! 284: ! 285: Tue Oct 20 22:14:41 1981 by jkf ! 286: fix < and > compiling so that they are only open coded if ! 287: we can be sure that both operands are fixnums. For now this ! 288: amounts to checking that one of the operands is a fixnum. ! 289: We should augment to this check also for type declarations. ! 290: ! 291: Sat Oct 17 11:47:50 1981 by jkf ! 292: since most fixnums are in the range 0 to 1023 we can probably ! 293: win by doing inline checking in that range. Thus I've added ! 294: the function d-fixnumbox which does an inline reboxing if ! 295: the number is between 0 and 1023 and otherwise calls qnewint. ! 296: The file changed was fixnum.l ! 297: ! 298: Thu Oct 8 23:35:34 1981 by jkf ! 299: added cc-= to open code = if possible. It looks for a fixnum ! 300: as one of the arguments and converts the = expression to ! 301: (eq (cdr ..) (cdr ..)) which should do the trick. ! 302:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.