1. Forum
  2. Usenet
  3. COMP.LANG.LISP

  • how to get Elements from a vector ?

    From Jens Kallup@21:1/5 to All on Sun Dec 10 17:52:55 2023
    Hello,

    I get TYPE-ERROR, when I try to get a element from the vector:

    (sb-ext:disable-debugger)
    (setf sb-ext:*muffled-warnings* 'style-warning)
    (defvar *x* #(42 32))

    (defun command-line-args ()
    (or
    #+clisp *args*
    #+sbcl *posix-argv*
    nil))

    ;;; -------------------------------------------------------------------
    ;;; @brief This is our main-entry point secured with some exception
    ;;; stuff.
    ;;; -------------------------------------------------------------------
    (defun main ()
    (handler-case
    (progn
    (write-line "Hallo Du")
    (setf (aref *posix-argv* 0) *x*)
    (write-line *x*)
    (/ 3 2))
    (division-by-zero (ex)
    (progn
    (format t "Exception error: DIVISION-BY-ZERO occured.")
    (quit)))
    (type-error (ex)
    (progn
    (format t "Exception error: type error.")
    (quit)))))

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)