diff options
Diffstat (limited to 'main.lisp')
-rw-r--r-- | main.lisp | 22 |
1 files changed, 5 insertions, 17 deletions
@@ -18,21 +18,9 @@ License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |# +#| +To solve the problem of the colliding syntax rules +We can test only the addressin modes we know the opcode to have +This not only solves this problem, it just makes more sense. +|# -(defun last-char (s) - (char s (- (length s) 1))) - -(defun label? (s) - (eq (last-char s) #\:)) - - -(setf - *grammar* - (('label - (lambda (l) - )))) - -(defun read_code () - (incf *source-line-number*) - () - ) |