Changeset 10312


Ignore:
Timestamp:
11/01/05 16:37:59 (16 years ago)
Author:
piso
Message:

COERCE-TO-CONDITION: corrected comment.

File:
1 edited

Legend:

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

    r9444 r10312  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: signal.lisp,v 1.13 2005-06-17 23:06:04 piso Exp $
     4;;; $Id: signal.lisp,v 1.14 2005-11-01 16:37:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6161    nil))
    6262
    63 ;; COERCE-TO-CONDITION is going to be redefined in clos.lisp, so we define it
    64 ;; in this file after SIGNAL so the call to it in SIGNAL is NOTINLINE. We could
    65 ;; use (DECLAIM (NOTINLINE COERCE-TO-CONDITON)) to achieve the same effect more
    66 ;; reliably if our compiler understood that kind of talk.
     63;; COERCE-TO-CONDITION is redefined in clos.lisp.
    6764(defun coerce-to-condition (datum arguments default-type fun-name)
    6865  (cond ((typep datum 'condition)
Note: See TracChangeset for help on using the changeset viewer.