Changeset 4879


Ignore:
Timestamp:
11/23/03 18:59:29 (18 years ago)
Author:
piso
Message:
  • ASSOC compiler macro: ASSQL
  • PRECOMPILE-SYMBOL-MACROLET
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/precompiler.lisp

    r4815 r4879  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: precompiler.lisp,v 1.9 2003-11-17 19:12:24 piso Exp $
     4;;; $Id: precompiler.lisp,v 1.10 2003-11-23 18:59:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2626                  (equal (fourth args) '(function eq))))
    2727         `(assq ,(first args) ,(second args)))
     28        ((= (length args) 2)
     29         `(assql ,(first args) ,(second args)))
    2830        (t form)))
    2931
     
    178180    (setf res (list* 'PROGN compiled-body))
    179181    res))
     182
     183(defun precompile-symbol-macrolet (form)
     184  (list* 'SYMBOL-MACROLET (cadr form) (mapcar #'precompile1 (cddr form))))
    180185
    181186(defun precompile-let/let*-vars (vars)
     
    399404                            return-from
    400405                            setq
     406                            symbol-macrolet
    401407                            tagbody
    402408                            the
Note: See TracChangeset for help on using the changeset viewer.