Ignore:
Timestamp:
05/12/05 18:09:12 (16 years ago)
Author:
piso
Message:

FORMATTER.COND.13

File:
1 edited

Legend:

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

    r8784 r9153  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: format.lisp,v 1.25 2005-03-17 15:03:06 piso Exp $
     4;;; $Id: format.lisp,v 1.26 2005-05-12 18:09:12 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    702702                    (find-directive
    703703                     (cdr (flet ((after (char)
    704                                         (member (find-directive (cdr directives)
    705                                                                 char
    706                                                                 nil)
    707                                                 directives)))
     704                                   (member (find-directive (cdr directives)
     705                                                           char
     706                                                           nil)
     707                                           directives)))
    708708                            (case char
    709709                              (#\( (after #\)))
     
    10871087      :complaint
    10881088      "must specify exactly two sections"))
    1089        (expand-bind-defaults ((index (expand-next-arg))) params
     1089       (expand-bind-defaults ((index nil)) params
    10901090               (setf *only-simple-args* nil)
    1091                (let ((clauses nil))
     1091               (let ((clauses nil)
     1092                     (case `(or ,index ,(expand-next-arg))))
    10921093                 (when last-semi-with-colon-p
    10931094                   (push `(t ,@(expand-directive-list (pop sublists)))
     
    10981099                             ,@(expand-directive-list sublist))
    10991100                           clauses)))
    1100                  `(case ,index ,@clauses)))))
     1101                 `(case ,case ,@clauses)))))
    11011102     remaining)))
    11021103
     
    11431144  (let ((arg (expand-next-arg)))
    11441145    (flet ((hairy ()
    1145                   `(if ,arg
    1146                        (progn
    1147                          ,@(expand-directive-list true))
    1148                        (progn
    1149                          ,@(expand-directive-list false)))))
     1146             `(if ,arg
     1147                  (progn
     1148                    ,@(expand-directive-list true))
     1149                  (progn
     1150                    ,@(expand-directive-list false)))))
    11501151      (if *only-simple-args*
    11511152    (multiple-value-bind (true-guts true-args true-simple)
Note: See TracChangeset for help on using the changeset viewer.