Changeset 4205

Timestamp:

10/06/03 00:03:15 (19 years ago)

Author:

piso

Message:

SUPLIEDP- => SUPPLIEDP-

File:

• trunk/j/src/org/armedbear/lisp/destructuring-bind.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/destructuring-bind.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: destructuring-bind.lisp,v 1.5 2003-10-01 01:13:36 piso Exp $
+;;; $Id: destructuring-bind.lisp,v 1.6 2003-10-06 00:03:15 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -330 +330 @@
           name error-kind error-fun)
   (unless supplied-var
-    (setf supplied-var (gensym "SUPLIEDP-")))
+    (setf supplied-var (gensym "SUPPLIEDP-")))
   (push-let-binding supplied-var condition t)
   (cond ((consp value-var)