Changeset 5175


Ignore:
Timestamp:
12/17/03 17:53:36 (17 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r5174 r5175  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: restart.lisp,v 1.7 2003-12-17 16:53:20 piso Exp $
     4;;; $Id: restart.lisp,v 1.8 2003-12-17 17:53:36 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3939
    4040(defmacro restart-bind (bindings &body forms)
    41   `(let ((*restart-clusters* (cons (list ,@(mapcar #'(lambda (binding)
    42                                                       `(make-restart
    43                                                         :name ',(car binding)
    44                                                         :function ,(cadr binding)
    45                                                         ,@(cddr binding)))
    46                                                    bindings))
    47                                    *restart-clusters*)))
     41  `(let ((*restart-clusters*
     42          (cons (list
     43                 ,@(mapcar #'(lambda (binding)
     44                              `(make-restart
     45                                :name ',(car binding)
     46                                :function ,(cadr binding)
     47                                ,@(cddr binding)))
     48                           bindings))
     49                *restart-clusters*)))
    4850     ,@forms))
    4951
     
    9294(defmacro with-keyword-pairs ((names expression &optional keywords-var) &body forms)
    9395  (let ((temp (member '&rest names)))
    94     (unless (= (length temp) 2) (error "&REST keyword is ~:[missing~;misplaced~]." temp))
     96    (unless (= (length temp) 2)
     97      (error "&REST keyword is ~:[missing~;misplaced~]." temp))
    9598    (let ((key-vars (ldiff names temp))
    9699          (key-var (or keywords-var (gensym)))
     
    142145                                  (keys (nth 2 datum)))
    143146                              `(,name #'(lambda (&rest temp)
    144                                          #+lispm (setq temp (copy-list temp))
    145147                                         (setq ,temp-var temp)
    146148                                         (go ,tag))
Note: See TracChangeset for help on using the changeset viewer.