Path: utzoo!utgpu!watmath!clyde!att!osu-cis!tut.cis.ohio-state.edu!ukma!rutgers!aramis.rutgers.edu!porthos.rutgers.edu!friedman From: friedman@porthos.rutgers.edu (Gadi ) Newsgroups: comp.lang.lisp,ru.qa Subject: Allegro CL bug? Keywords: help Message-ID: Date: 2 Nov 88 22:08:13 GMT Distribution: inet Organization: Rutgers Univ., New Brunswick, N.J. Lines: 28 I am using Allegro CL 3.0.1.beta [sun4] (7/29/88 23:05) Copyright (C) 1985-1988, Franz Inc., Berkeley, CA, USA and am tring to setf array values using (apply #'aref array list)) (setq test (make-array '(2 2))) ; works (apply #'aref test '(1 1)) ; works (returns the correct element) (setf (apply #'aref test '(1 1)) 2) ; DOES NOT WORK. This should work, as described in CLtL pg 95 and 291. It also works fine using ;;; Sun Common Lisp, Development Environment 2.1.1, 24-Jun-88 ;;; ;;; Copyright (c) 1987 by Sun Microsystems, Inc. All Rights Reserved ;;; Copyright (c) 1985, 1986, 1987 by Lucid Inc., All Rights Reserved Can anyone think of a workaround. Something short of making a new list and using eval. (eval (setf (aref test 1 1) 2)) will work. (We all know how slow eval is) -- uucp: {ames, cbosgd, harvard, moss}!rutgers!aramis.rutgers.edu!friedman arpa: FRIEDMAN@ARAMIS.RUTGERS.EDU