home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / lisp / 3052 < prev    next >
Encoding:
Text File  |  1992-12-12  |  3.5 KB  |  130 lines
  1. Newsgroups: comp.lang.lisp
  2. Path: sparky!uunet!munnari.oz.au!uniwa!cujo!travt
  3. From: travt@cs.curtin.edu.au (Tony Travers)
  4. Subject: Re: help with CLX needed
  5. Message-ID: <travt.724139352@marsh>
  6. Keywords: CLX %svref Lucid
  7. Sender: news@cujo.curtin.edu.au (News Manager)
  8. Organization: Curtin University of Technology
  9. References: <travt.723351967@marsh>
  10. Date: Sat, 12 Dec 1992 05:49:12 GMT
  11. Lines: 117
  12.  
  13.  
  14. Reciently in comp.lang.lisp I wrote:
  15.  
  16. >hi
  17.  
  18.  
  19. >    I have been having some problems with CLX on Lucid Common Lisp
  20. >3.0.  After installing PCL, the dependent.lisp file errors when compiling.
  21.  
  22. >    The error revolves around %svref-8bit...which is first used to get a
  23. >value but when the command (setf (lucid::%svref-8bit a i) v) is used, the
  24. >compiler says that %svref-8bit is not a valid value for setf.
  25.  
  26. >    I hope someone can help me with this.
  27.  
  28. >                Many Thanks
  29.  
  30. >                    Tony Travers
  31. >                    travt@marsh.cs.curtin.edu.au
  32.  
  33.  
  34.  
  35.  
  36.     I have further information about my problem it has something to
  37. do with the aref setup for lucid....
  38.  
  39. The following was mentioned in the CHANGES file for CLX
  40.  
  41. o In Lucid lisp, the functions aref-card8, aref-int8, aset-card8,
  42.     aset-int8, aref-card16, aref-int16, aref-card32, aref-int32,
  43.      aref-card29, aset-card16, aset-int16, aset-card32, aset-int32,
  44.      and aset-card29 Have been fixed so that they can be used inline 
  45.     with the development compiler.
  46.  
  47. **but in the dependents.lisp file there is the following:
  48.  
  49.  
  50. (declaim (inline aref-card8 aset-card8 aref-int8 aset-int8))
  51.  
  52. #-(or Genera lcl3.0 excl akcl)
  53. (progn
  54.  
  55. (defun aref-card8 (a i)
  56.   (declare (type buffer-bytes a)
  57.            (type array-index i))
  58.   (declare (values card8))
  59.   #.(declare-buffun)
  60.   (the card8 (aref a i))) 
  61. .
  62. .
  63. .
  64.  
  65. **then later
  66.  
  67.  
  68. #+lcl3.0
  69. (progn
  70.  
  71. (defun aref-card8 (a i)
  72.   (declare (type buffer-bytes a)
  73.            (type array-index i)
  74.            (values card8))
  75.   #.(declare-buffun)
  76.   (the card8 (lucid::%svref-8bit a i))) 
  77.  
  78. (defun aset-card8 (v a i)
  79.   (declare (type card8 v)
  80.            (type buffer-bytes a)
  81.            (type array-index i))
  82.   #.(declare-buffun)
  83.   (setf (lucid::%svref-8bit a i) v))
  84.  
  85. .
  86. .
  87. .
  88.  
  89.  
  90. **but when I try to compile it I get:
  91.  
  92. ;;; You are using the compiler in development mode (compilation-speed = 3)
  93. ;;; Generation of runtime error checking code is disabled (safety = 0)
  94. ;;; Optimization of tail calls is enabled (speed = 3)
  95. ;;; Reading source file "dependent.lisp"
  96. >>Error: LUCID::%SVREF-8BIT is not a known location specifier for SETF.
  97.  
  98. GET-SETF-METHOD-MULTIPLE-VALUE:
  99.    Required arg 0 (FORM): (LUCID::%SVREF-8BIT A I)
  100.    Optional arg 1 (ENVIRONMENT): ((2 #S(VARIABLE NAME ASET-CARD8
  101. IDENTIFIER NIL SOURCE-TYPE 2 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  102. NIL NIL NIL...)) (0 #S(VARIABLE NAME V IDENTIFIER NIL SOURCE-TYPE 0 NIL
  103. NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL...) #S(VARIABLE NAME
  104. A IDENTIFIER NIL SOURCE-TYPE 0 NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL
  105. NIL NIL NIL NIL...) #S(VARIABLE NAME I IDENTIFIER NIL SOURCE-TYPE 0 NIL
  106. NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL NIL...)) (9))
  107.     0: Retry compiling file
  108. #P"/usr/big_disk/research_students/travt/ftpstuff/pcl/clx/dependent.lisp".
  109.  
  110.  
  111. ***Also note I had this working until reciently, though I am not sure why
  112. it stopped working, we had  
  113.  
  114. "The X11R5 binaries and libraries have been updated after patch #17
  115. (previously, we were only at patch #12)"
  116.  
  117.     at the same time though I cannot see how this would be causing
  118. the error!!!!!!
  119.  
  120.  
  121.     If anyone can help, or are able to tell me who wrote CLX (there is
  122. no note in the documentation),  it be very much appreciated....
  123.  
  124.                 Thanks Tony Travers
  125.                     travt@marsh.cs.curtin.edu.au
  126.  
  127.  
  128.  
  129.  
  130.