Changeset 8485


Ignore:
Timestamp:
02/06/05 02:01:38 (16 years ago)
Author:
piso
Message:

COMMA-MACRO: capitalize first word of error message.

File:
1 edited

Legend:

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

    r8063 r8485  
    11;;; backquote.lisp
    22;;;
    3 ;;; Copyright (C) 2004 Peter Graves
    4 ;;; $Id: backquote.lisp,v 1.6 2004-10-24 18:06:20 piso Exp $
     3;;; Copyright (C) 2004-2005 Peter Graves
     4;;; $Id: backquote.lisp,v 1.7 2005-02-06 02:01:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8484    (when *read-suppress*
    8585      (return-from comma-macro nil))
    86     (%reader-error stream "comma not inside a backquote"))
     86    (%reader-error stream "Comma not inside a backquote."))
    8787  (let ((c (read-char stream))
    8888  (*backquote-count* (1- *backquote-count*)))
Note: See TracChangeset for help on using the changeset viewer.