Changeset 8275


Ignore:
Timestamp:
12/20/04 18:32:14 (16 years ago)
Author:
piso
Message:

Work in progress.

File:
1 edited

Legend:

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

    r7319 r8275  
    22;;;
    33;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: aver.lisp,v 1.1 2004-07-28 16:12:53 piso Exp $
     4;;; $Id: aver.lisp,v 1.2 2004-12-20 18:32:14 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2323
    2424(defun %failed-aver (expr-as-string)
    25   (error 'simple-error "Failed AVER: ~S" expr-as-string))
     25  (error 'simple-error
     26         :format-control "Failed AVER: ~S"
     27         :format-arguments (list expr-as-string)))
    2628
    2729(defmacro aver (expr)
Note: See TracChangeset for help on using the changeset viewer.