Changeset 4044

Timestamp:

09/24/03 22:55:00 (19 years ago)

Author:

piso

Message:

(defsetf charpos %set-charpos)

File:

• trunk/j/src/org/armedbear/lisp/setf.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/setf.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: setf.lisp,v 1.24 2003-09-15 03:53:21 piso Exp $
+;;; $Id: setf.lisp,v 1.25 2003-09-24 22:55:00 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -220 +220 @@
 (defsetf char %set-char)
 (defsetf schar %set-schar)
+
+(defsetf charpos %set-charpos)