===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
cmucl-21d/bin/build-utils.sh-14-
cmucl-21d/bin/build-utils.sh:15:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/build-utils.sh-16-shift
##############################################
cmucl-21d/bin/clean-target.sh-3-usage() {
cmucl-21d/bin/clean-target.sh:4: echo "Usage: `basename $0` [-l] dir [dir1 dir2 ...]"
cmucl-21d/bin/clean-target.sh-5- echo " -h This help"
##############################################
cmucl-21d/bin/clean-target.sh-28-
cmucl-21d/bin/clean-target.sh:29:shift `expr $OPTIND - 1`
cmucl-21d/bin/clean-target.sh-30-
##############################################
cmucl-21d/bin/clean-target.sh-40- fi
cmucl-21d/bin/clean-target.sh:41: D="`echo $d | sed 's:/*$::'`"
cmucl-21d/bin/clean-target.sh-42- TARGET="$TARGET $D"
##############################################
cmucl-21d/bin/cross-build-world.sh-28-
cmucl-21d/bin/cross-build-world.sh:29:shift `expr $OPTIND - 1`
cmucl-21d/bin/cross-build-world.sh-30-
##############################################
cmucl-21d/bin/cross-build-world.sh-53-
cmucl-21d/bin/cross-build-world.sh:54:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/cross-build-world.sh:55:CROSS="`echo $2 | sed 's:/*$::'`"
cmucl-21d/bin/cross-build-world.sh-56-SCRIPT="$3"
##############################################
cmucl-21d/bin/load-world.sh-44-
cmucl-21d/bin/load-world.sh:45:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/load-world.sh-46-
##############################################
cmucl-21d/bin/make-dist.sh-65- case $uname_r in
cmucl-21d/bin/make-dist.sh:66: 5.*) rel=`echo $uname_r | sed 's/5\.//'`;;
cmucl-21d/bin/make-dist.sh-67- *) rel=$uname_r;;
##############################################
cmucl-21d/bin/make-dist.sh-101-if expr "X${GIT_HASH}" : 'Xsnapshot-[0-9][0-9][0-9][0-9]-[01][0-9]' > /dev/null; then
cmucl-21d/bin/make-dist.sh:102: DEFAULT_VERSION=`expr "${GIT_HASH}" : "snapshot-\(.*\)"`
cmucl-21d/bin/make-dist.sh-103-fi
##############################################
cmucl-21d/bin/make-dist.sh-125-
cmucl-21d/bin/make-dist.sh:126:shift `expr $OPTIND - 1`
cmucl-21d/bin/make-dist.sh-127-
##############################################
cmucl-21d/bin/make-dist.sh-161-
cmucl-21d/bin/make-dist.sh:162:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/make-dist.sh-163-
##############################################
cmucl-21d/bin/make-dist.sh-168-echo cmucl-$VERSION-$ARCH-$OS
cmucl-21d/bin/make-dist.sh:169:ROOT=`dirname $0`
cmucl-21d/bin/make-dist.sh-170-
##############################################
cmucl-21d/bin/make-extra-dist.sh-14-
cmucl-21d/bin/make-extra-dist.sh:15:shift `expr $OPTIND - 1`
cmucl-21d/bin/make-extra-dist.sh-16-
##############################################
cmucl-21d/bin/make-extra-dist.sh-29-DESTDIR=${INSTALL_DIR:-release-$$}
cmucl-21d/bin/make-extra-dist.sh:30:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/make-extra-dist.sh-31-VERSION=$2
##############################################
cmucl-21d/bin/make-extra-dist.sh-103-do
cmucl-21d/bin/make-extra-dist.sh:104: FILE=`basename $f`
cmucl-21d/bin/make-extra-dist.sh:105: DIR=`dirname $f`
cmucl-21d/bin/make-extra-dist.sh-106- install ${GROUP} ${OWNER} -m 0644 src/contrib/$f $DESTDIR/lib/cmucl/lib/contrib/$DIR
##############################################
cmucl-21d/bin/make-extra-dist.sh-116-# Install mo files.
cmucl-21d/bin/make-extra-dist.sh:117:for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`
cmucl-21d/bin/make-extra-dist.sh-118-do
cmucl-21d/bin/make-extra-dist.sh:119: FILE=`basename $f`
cmucl-21d/bin/make-extra-dist.sh:120: DIR=`dirname $f`
cmucl-21d/bin/make-extra-dist.sh-121- install ${GROUP} ${OWNER} -m 0644 $TARGET/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR
##############################################
cmucl-21d/bin/make-extra-dist.sh-124-# Install po files. (Do we really need to distribute the po files?)
cmucl-21d/bin/make-extra-dist.sh:125:#for f in `(cd $TARGET/i18n; find locale -type f -print | egrep -v 'CVS|~.*~|.*~')`
cmucl-21d/bin/make-extra-dist.sh-126-#do
cmucl-21d/bin/make-extra-dist.sh:127:# FILE=`basename $f`
cmucl-21d/bin/make-extra-dist.sh:128:# DIR=`dirname $f`
cmucl-21d/bin/make-extra-dist.sh-129-# install ${GROUP} ${OWNER} -m 0644 $TARGET/i18n/$f $DESTDIR/lib/cmucl/lib/$DIR
##############################################
cmucl-21d/bin/make-main-dist.sh-16-
cmucl-21d/bin/make-main-dist.sh:17:shift `expr $OPTIND - 1`
cmucl-21d/bin/make-main-dist.sh-18-
##############################################
cmucl-21d/bin/make-main-dist.sh-33-MANDIR=${MANDIR:-man/man1}
cmucl-21d/bin/make-main-dist.sh:34:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/make-main-dist.sh-35-VERSION=$2
##############################################
cmucl-21d/bin/make-main-dist.sh-162-do
cmucl-21d/bin/make-main-dist.sh:163: base=`basename $f`
cmucl-21d/bin/make-main-dist.sh-164- install ${GROUP} ${OWNER} -m 0644 $f $DESTDIR/lib/cmucl/lib/contrib/asdf/doc/$base
##############################################
cmucl-21d/bin/make-src-dist.sh-25-
cmucl-21d/bin/make-src-dist.sh:26:shift `expr $OPTIND - 1`
cmucl-21d/bin/make-src-dist.sh-27-
##############################################
cmucl-21d/bin/rebuild-lisp.sh-19-
cmucl-21d/bin/rebuild-lisp.sh:20:shift `expr $OPTIND - 1`
cmucl-21d/bin/rebuild-lisp.sh-21-
##############################################
cmucl-21d/bin/rebuild-lisp.sh-33-
cmucl-21d/bin/rebuild-lisp.sh:34:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/rebuild-lisp.sh-35-
##############################################
cmucl-21d/bin/run-tests.sh-57- do
cmucl-21d/bin/run-tests.sh:58: new=`echo $f | tr '[a-z]' '[A-Z]'`
cmucl-21d/bin/run-tests.sh-59- result="$result "\"$new-TESTS\"
##############################################
cmucl-21d/bin/build-world.sh-14-
cmucl-21d/bin/build-world.sh:15:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/bin/build-world.sh-16-LISP="${2:-cmucl}"
##############################################
cmucl-21d/bin/create-target.sh-19-##--
cmucl-21d/bin/create-target.sh:20:prgm_name=`basename $0` bld_dir=$1 lisp_variant=$2 motif_variant=$3
cmucl-21d/bin/create-target.sh-21-
##############################################
cmucl-21d/bin/create-target.sh-96-# Create a directory tree that mirrors the source directory tree
cmucl-21d/bin/create-target.sh:97:[ -d "$bld_dir" -o -f "$bld_dir" ] && quit "Exists: `ls -ld $bld_dir`"
cmucl-21d/bin/create-target.sh-98-mkdir -p "$bld_dir"
##############################################
cmucl-21d/src/benchmarks/gabriel/bmarks.lisp-111- ((one-way-unify term (cadr (car lst)))
cmucl-21d/src/benchmarks/gabriel/bmarks.lisp:112: (rewrite (apply-subst unify-subst (caddr (car lst)))))
cmucl-21d/src/benchmarks/gabriel/bmarks.lisp-113- (t (rewrite-with-lemmas term (cdr lst)))))
##############################################
cmucl-21d/src/benchmarks/soar/soar.lisp-493-
cmucl-21d/src/benchmarks/soar/soar.lisp:494:(defun rhs-part (pnode) (caddr (cdddr pnode)))
cmucl-21d/src/benchmarks/soar/soar.lisp-495-
##############################################
cmucl-21d/src/benchmarks/soar/soar.lisp-7070-(defun get-vars-in-condition (c)
cmucl-21d/src/benchmarks/soar/soar.lisp:7071: (caddr (car c)))
cmucl-21d/src/benchmarks/soar/soar.lisp-7072-
##############################################
cmucl-21d/src/clx/dep-allegro.lisp-1106- (assert (= (ipc::hostent-length hostent) 4))
cmucl-21d/src/clx/dep-allegro.lisp:1107: (let ((addr (ipc::hostent-addr hostent)))
cmucl-21d/src/clx/dep-allegro.lisp-1108- (when (or (member comp::.target.
##############################################
cmucl-21d/src/clx/dep-allegro.lisp-1112- ;; BSD 4.3 based systems require an extra indirection
cmucl-21d/src/clx/dep-allegro.lisp:1113: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cmucl-21d/src/clx/dep-allegro.lisp-1114- (list :internet
##############################################
cmucl-21d/src/clx/dep-lispworks.lisp-620-
cmucl-21d/src/clx/dep-lispworks.lisp:621: (fli:with-dynamic-foreign-objects ((sock-addr (:struct %sockaddr-un)))
cmucl-21d/src/clx/dep-lispworks.lisp-622- (let ((pathname-string (namestring (translate-logical-pathname (truename pathname)))))
##############################################
cmucl-21d/src/clx/dep-lispworks.lisp-920- (error "Host ~S has no ~S address" host family)))
cmucl-21d/src/clx/dep-lispworks.lisp:921: (let ((addr (comm:get-host-entry (string host) :fields '(:address))))
cmucl-21d/src/clx/dep-lispworks.lisp-922- (when (not addr)
##############################################
cmucl-21d/src/clx/dep-openmcl.lisp-845- ((:internet nil 0)
cmucl-21d/src/clx/dep-openmcl.lisp:846: (let* ((addr (ccl:lookup-hostname host)))
cmucl-21d/src/clx/dep-openmcl.lisp-847- (cons :internet (list
##############################################
cmucl-21d/src/clx/dependent.lisp-2436-
cmucl-21d/src/clx/dependent.lisp:2437: (let ((hostent (posix::resolve-host-ipaddr (string host))))
cmucl-21d/src/clx/dependent.lisp-2438- (when (not (posix::hostent-addr-list hostent))
##############################################
cmucl-21d/src/clx/dependent.lisp-2443- (no-address-error))
cmucl-21d/src/clx/dependent.lisp:2444: (let ((addr (first (posix::hostent-addr-list hostent))))
cmucl-21d/src/clx/dependent.lisp-2445- (etypecase addr
##############################################
cmucl-21d/src/clx/dependent.lisp-2472- ((:internet nil 0)
cmucl-21d/src/clx/dependent.lisp:2473: (let ((addr (ip:get-ip-address host)))
cmucl-21d/src/clx/dependent.lisp:2474: (unless addr (error "~s isn't an internet host name" host))
cmucl-21d/src/clx/dependent.lisp-2475- (list :internet
##############################################
cmucl-21d/src/clx/dependent.lisp-2480- ((:chaos 2)
cmucl-21d/src/clx/dependent.lisp:2481: (let ((addr (first (chaos:chaos-addresses host))))
cmucl-21d/src/clx/dependent.lisp:2482: (unless addr (error "~s isn't a chaos host name" host))
cmucl-21d/src/clx/dependent.lisp-2483- (list :chaos
##############################################
cmucl-21d/src/clx/dependent.lisp-2548- (assert (= (ipc::hostent-length hostent) 4))
cmucl-21d/src/clx/dependent.lisp:2549: (let ((addr (ipc::hostent-addr hostent)))
cmucl-21d/src/clx/dependent.lisp-2550- (when (or (member comp::.target.
##############################################
cmucl-21d/src/clx/dependent.lisp-2554- ;; BSD 4.3 based systems require an extra indirection
cmucl-21d/src/clx/dependent.lisp:2555: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cmucl-21d/src/clx/dependent.lisp-2556- (list :internet
##############################################
cmucl-21d/src/clx/dependent.lisp-2594- #+rwi-sockets
cmucl-21d/src/clx/dependent.lisp:2595: (let ((addr (first (ext::host-entry-addr-list hostent))))
cmucl-21d/src/clx/dependent.lisp-2596- (list (ldb (byte 8 24) addr)
##############################################
cmucl-21d/src/clx/dependent.lisp-2600- #+mna-sockets
cmucl-21d/src/clx/dependent.lisp:2601: (let ((addr (first (net.sbcl.sockets::host-entry-addr-list hostent))))
cmucl-21d/src/clx/dependent.lisp-2602- (list (ldb (byte 8 24) addr)
##############################################
cmucl-21d/src/clx/dependent.lisp-2631- (error "Unknown host ~S" host)))
cmucl-21d/src/clx/dependent.lisp:2632: (let ((addr (first (nth-value 3 (si::lookup-host-entry (string host))))))
cmucl-21d/src/clx/dependent.lisp-2633- (unless addr
##############################################
cmucl-21d/src/clx/socket.c-89- /* Get the statistics on the specified host. */
cmucl-21d/src/clx/socket.c:90: if ((inaddr.sin_addr.s_addr = inet_addr(host)) == -1)
cmucl-21d/src/clx/socket.c-91- {
##############################################
cmucl-21d/src/code/alien-callback.lisp-374- (let ((sp-fixnum (gensym (string :sp-fixnum-)))
cmucl-21d/src/code/alien-callback.lisp:375: (ret-addr (gensym (string :ret-addr-)))
cmucl-21d/src/code/alien-callback.lisp-376- (sp (gensym (string :sp-)))
##############################################
cmucl-21d/src/code/alieneval.lisp-1672-;;;
cmucl-21d/src/code/alieneval.lisp:1673:(defun %slot-addr (alien slot)
cmucl-21d/src/code/alieneval.lisp-1674- (declare (type alien-value alien)
##############################################
cmucl-21d/src/code/alieneval.lisp-1679- (alien-pointer-type
cmucl-21d/src/code/alieneval.lisp:1680: (%slot-addr (deref alien) slot))
cmucl-21d/src/code/alieneval.lisp-1681- (alien-record-type
##############################################
cmucl-21d/src/code/alieneval.lisp-1769-;;;
cmucl-21d/src/code/alieneval.lisp:1770:(defun %deref-addr (alien &rest indices)
cmucl-21d/src/code/alieneval.lisp-1771- (declare (type alien-value alien)
##############################################
cmucl-21d/src/code/alieneval.lisp-1799-
cmucl-21d/src/code/alieneval.lisp:1800:(defun %heap-alien-addr (info)
cmucl-21d/src/code/alieneval.lisp-1801- (declare (type heap-alien-info info)
##############################################
cmucl-21d/src/code/alieneval.lisp-1853-
cmucl-21d/src/code/alieneval.lisp:1854:(defun %local-alien-addr (info alien)
cmucl-21d/src/code/alieneval.lisp-1855- (declare (type local-alien-info info))
##############################################
cmucl-21d/src/code/alieneval.lisp-1867-
cmucl-21d/src/code/alieneval.lisp:1868:(defmacro addr (expr &environment env)
cmucl-21d/src/code/alieneval.lisp-1869- "Return an Alien pointer to the data addressed by Expr, which must be a call
##############################################
cmucl-21d/src/code/alieneval.lisp-1875- (slot
cmucl-21d/src/code/alieneval.lisp:1876: (cons '%slot-addr (cdr form)))
cmucl-21d/src/code/alieneval.lisp-1877- (deref
cmucl-21d/src/code/alieneval.lisp:1878: (cons '%deref-addr (cdr form)))
cmucl-21d/src/code/alieneval.lisp-1879- (%heap-alien
cmucl-21d/src/code/alieneval.lisp:1880: (cons '%heap-alien-addr (cdr form)))
cmucl-21d/src/code/alieneval.lisp-1881- (local-alien
##############################################
cmucl-21d/src/code/alieneval.lisp-1890- (setf (local-alien-info-force-to-memory-p info) t))
cmucl-21d/src/code/alieneval.lisp:1891: (cons '%local-alien-addr (cdr form)))))
cmucl-21d/src/code/alieneval.lisp-1892- (symbol
##############################################
cmucl-21d/src/code/amd64-vm.lisp-224- (kernel:code-instructions code)))
cmucl-21d/src/code/amd64-vm.lisp:225: (obj-start-addr (logand (kernel:get-lisp-obj-address code)
cmucl-21d/src/code/amd64-vm.lisp-226- #xfffffff8))
cmucl-21d/src/code/amd64-vm.lisp:227: #+nil (const-start-addr (+ obj-start-addr (* 5 4)))
cmucl-21d/src/code/amd64-vm.lisp:228: (code-start-addr (sys:sap-int (kernel:code-instructions code)))
cmucl-21d/src/code/amd64-vm.lisp-229- (ncode-words (kernel:code-header-ref code 1))
cmucl-21d/src/code/amd64-vm.lisp:230: (code-end-addr (+ code-start-addr (* ncode-words 8))))
cmucl-21d/src/code/amd64-vm.lisp-231- (unless (member kind '(:absolute :relative))
##############################################
cmucl-21d/src/code/amd64-vm.lisp-238- ;; Record absolute fixups that point within the code object.
cmucl-21d/src/code/amd64-vm.lisp:239: (when (> code-end-addr (sap-ref-32 sap offset) obj-start-addr)
cmucl-21d/src/code/amd64-vm.lisp-240- (add-fixup code offset)))
##############################################
cmucl-21d/src/code/amd64-vm.lisp-283- (logand (kernel:get-lisp-obj-address code) #xfffffff8))
cmucl-21d/src/code/amd64-vm.lisp:284: (code-start-addr (sys:sap-int (kernel:code-instructions code)))
cmucl-21d/src/code/amd64-vm.lisp-285- (ncode-words (kernel:code-header-ref code 1))
cmucl-21d/src/code/amd64-vm.lisp:286: (code-end-addr (+ code-start-addr (* ncode-words 8))))
cmucl-21d/src/code/amd64-vm.lisp-287- (ecase kind
##############################################
cmucl-21d/src/code/amd64-vm.lisp-290- ;; code object.
cmucl-21d/src/code/amd64-vm.lisp:291: (when (> code-end-addr (sap-ref-32 sap offset) obj-start-addr)
cmucl-21d/src/code/amd64-vm.lisp-292- (add-load-time-code-fixup code offset)))
##############################################
cmucl-21d/src/code/array.lisp-367- (sys:without-gcing
cmucl-21d/src/code/array.lisp:368: (let ((addr (logandc1 vm:lowtag-mask (kernel:get-lisp-obj-address vector))))
cmucl-21d/src/code/array.lisp-369- (when *debug-static-array-p*
##############################################
cmucl-21d/src/code/debug-int.lisp-1185- _"Return a string describing the foreign function near ADDRESS"
cmucl-21d/src/code/debug-int.lisp:1186: (let ((addr (sys:sap-int address)))
cmucl-21d/src/code/debug-int.lisp-1187- (alien:with-alien ((info (alien:struct dl-info
##############################################
cmucl-21d/src/code/debug-int.lisp-1191- (symbol-address alien:unsigned)))
cmucl-21d/src/code/debug-int.lisp:1192: (dladdr (function alien:unsigned alien:unsigned
cmucl-21d/src/code/debug-int.lisp-1193- (* (alien:struct dl-info)))
cmucl-21d/src/code/debug-int.lisp-1194- :extern "dladdr"))
cmucl-21d/src/code/debug-int.lisp:1195: (let ((err (alien:alien-funcall dladdr addr (alien:addr info))))
cmucl-21d/src/code/debug-int.lisp-1196- (cond ((zerop err)
##############################################
cmucl-21d/src/code/debug-int.lisp-1200- (alien:slot info 'symbol)
cmucl-21d/src/code/debug-int.lisp:1201: (- addr (alien:slot info 'symbol-address))
cmucl-21d/src/code/debug-int.lisp-1202- addr
##############################################
cmucl-21d/src/code/debug-int.lisp-1233- (let ((routines (sort routines #'< :key #'cdr))
cmucl-21d/src/code/debug-int.lisp:1234: (addr (+ start pc)))
cmucl-21d/src/code/debug-int.lisp-1235- (loop for ((r1 . addr1) (r2 . addr2)) on routines
##############################################
cmucl-21d/src/code/foreign.lisp-74- (memory-needed (logandc2 (+ bytes pagesize-1) pagesize-1))
cmucl-21d/src/code/foreign.lisp:75: (addr (int-sap *foreign-segment-free-pointer*))
cmucl-21d/src/code/foreign.lisp-76- (new-ptr (+ *foreign-segment-free-pointer* memory-needed)))
##############################################
cmucl-21d/src/code/foreign.lisp-387- (alien:alien-size pheader :bytes))
cmucl-21d/src/code/foreign.lisp:388: (let* ((addr (system::allocate-space-in-foreign-segment
cmucl-21d/src/code/foreign.lisp-389- (alien:slot program-header 'p-memory-size))))
##############################################
cmucl-21d/src/code/foreign.lisp-392- (unix:unix-read
cmucl-21d/src/code/foreign.lisp:393: fd addr (alien:slot program-header 'p-file-size)))))
cmucl-21d/src/code/foreign.lisp-394- (unix:unix-close fd))))
##############################################
cmucl-21d/src/code/foreign.lisp-438- (+ len-of-text-and-data (alien:slot header 'bss)))
cmucl-21d/src/code/foreign.lisp:439: (addr (allocate-space-in-foreign-segment memory-needed)))
cmucl-21d/src/code/foreign.lisp-440- (unix:unix-read fd addr len-of-text-and-data)))
##############################################
cmucl-21d/src/code/foreign.lisp-546- (memory-needed (+ tsize dsize bsize (* 2 4096)))
cmucl-21d/src/code/foreign.lisp:547: (addr (allocate-space-in-foreign-segment memory-needed)))
cmucl-21d/src/code/foreign.lisp-548- (unix-bzero addr memory-needed) ;force valid
##############################################
cmucl-21d/src/code/foreign.lisp-563- c-call:unsigned-long))
cmucl-21d/src/code/foreign.lisp:564: addr (+ (- dmem tmem) dsize bsize))
cmucl-21d/src/code/foreign.lisp-565- ))
##############################################
cmucl-21d/src/code/internet.lisp-133-
cmucl-21d/src/code/internet.lisp:134:(defun host-entry-addr (host)
cmucl-21d/src/code/internet.lisp-135- (declare (type host-entry host))
##############################################
cmucl-21d/src/code/internet.lisp-221- ((unsigned-byte 32)
cmucl-21d/src/code/internet.lisp:222: (gethostbyaddr (htonl host) 4 af-inet)))))
cmucl-21d/src/code/internet.lisp-223- (if (zerop (sap-int (alien-sap hostent)))
##############################################
cmucl-21d/src/code/internet.lisp-350- "bind Socket to (local) Host and Port"
cmucl-21d/src/code/internet.lisp:351: (let ((addr (if (stringp host)
cmucl-21d/src/code/internet.lisp:352: (host-entry-addr (or (lookup-host-entry host)
cmucl-21d/src/code/internet.lisp-353- (error (intl:gettext "Unknown host: ~S.") host)))
##############################################
cmucl-21d/src/code/internet.lisp-383- "The host may be an address string or an IP address in host order."
cmucl-21d/src/code/internet.lisp:384: (let* ((addr (if (stringp host)
cmucl-21d/src/code/internet.lisp:385: (host-entry-addr (or (lookup-host-entry host)
cmucl-21d/src/code/internet.lisp-386- (error (intl:gettext "Unknown host: ~S.") host)))
##############################################
cmucl-21d/src/code/internet.lisp-445- "The host may be an address string or an IP address in host order."
cmucl-21d/src/code/internet.lisp:446: (let ((addr (if (stringp host)
cmucl-21d/src/code/internet.lisp:447: (host-entry-addr (or (lookup-host-entry host)
cmucl-21d/src/code/internet.lisp-448- (error (intl:gettext "Unknown host: ~S.") host)))
##############################################
cmucl-21d/src/code/internet.lisp-459- (dotted-quad (ipaddr)
cmucl-21d/src/code/internet.lisp:460: (let ((naddr (htonl ipaddr)))
cmucl-21d/src/code/internet.lisp-461- (format nil "~D.~D.~D.~D"
##############################################
cmucl-21d/src/code/internet.lisp-539- (let ((socket (create-inet-socket kind))
cmucl-21d/src/code/internet.lisp:540: (addr (if (stringp host)
cmucl-21d/src/code/internet.lisp:541: (host-entry-addr (or (lookup-host-entry host)
cmucl-21d/src/code/internet.lisp-542- (error 'socket-error
##############################################
cmucl-21d/src/code/internet.lisp-803- (setf host (host-entry-addr hostent))
cmucl-21d/src/code/internet.lisp:804: (setf hostaddr (format nil "~A:~D"
cmucl-21d/src/code/internet.lisp-805- (host-entry-name hostent)
##############################################
cmucl-21d/src/code/internet.lisp-807- ((integerp host)
cmucl-21d/src/code/internet.lisp:808: (setf hostaddr (format nil "~D.~D.~D.~D:~D"
cmucl-21d/src/code/internet.lisp-809- (ldb (byte 8 24) host)
##############################################
cmucl-21d/src/code/lispinit.lisp-319-(defun hexstr(thing)
cmucl-21d/src/code/lispinit.lisp:320: (let ((addr (kernel:get-lisp-obj-address thing))
cmucl-21d/src/code/lispinit.lisp-321- (str (make-string 10)))
##############################################
cmucl-21d/src/code/lispinit.lisp-329- (setf (char str (- 9 i)) chr
cmucl-21d/src/code/lispinit.lisp:330: addr (ash addr -4))))
cmucl-21d/src/code/lispinit.lisp-331- str))
##############################################
cmucl-21d/src/code/list.lisp-67-(defun cddr (list) "Returns all but the 1st two objects of a list." (cddr list))
cmucl-21d/src/code/list.lisp:68:(defun caddr (list) "Returns the 1st object in the cddr of a list." (caddr list))
cmucl-21d/src/code/list.lisp-69-(defun caadr (list) "Returns the 1st object in the cadr of a list." (caadr list))
##############################################
cmucl-21d/src/code/list.lisp-77-(defun caaadr (list) "Returns the car of the caadr of a list." (caaadr list))
cmucl-21d/src/code/list.lisp:78:(defun caaddr (list) "Returns the car of the caddr of a list." (caaddr list))
cmucl-21d/src/code/list.lisp-79-(defun cadddr (list) "Returns the car of the cdddr of a list." (cadddr list))
##############################################
cmucl-21d/src/code/list.lisp-89-(defun cdadar (list) "Returns the cdr of the cadar of a list." (cdadar list))
cmucl-21d/src/code/list.lisp:90:(defun cdaddr (list) "Returns the cdr of the caddr of a list." (cdaddr list))
cmucl-21d/src/code/list.lisp-91-(defun cddadr (list) "Returns the cdr of the cdadr of a list." (cddadr list))
##############################################
cmucl-21d/src/code/list.lisp-162- "Returns the 7th object in a list or NIL if there is no 7th object."
cmucl-21d/src/code/list.lisp:163: (caddr (cddddr list)))
cmucl-21d/src/code/list.lisp-164-(defun eighth (list)
##############################################
cmucl-21d/src/code/macros.lisp-1127-(defsetf caadr (x) (v) `(%rplaca (cadr ,x) ,v))
cmucl-21d/src/code/macros.lisp:1128:(defsetf caddr (x) (v) `(%rplaca (cddr ,x) ,v))
cmucl-21d/src/code/macros.lisp-1129-(defsetf cdadr (x) (v) `(%rplacd (cadr ,x) ,v))
##############################################
cmucl-21d/src/code/macros.lisp-1142-(defsetf cddadr (x) (v) `(%rplacd (cdadr ,x) ,v))
cmucl-21d/src/code/macros.lisp:1143:(defsetf caaddr (x) (v) `(%rplaca (caddr ,x) ,v))
cmucl-21d/src/code/macros.lisp-1144-(defsetf cadddr (x) (v) `(%rplaca (cdddr ,x) ,v))
cmucl-21d/src/code/macros.lisp:1145:(defsetf cdaddr (x) (v) `(%rplacd (caddr ,x) ,v))
cmucl-21d/src/code/macros.lisp-1146-(defsetf cddddr (x) (v) `(%rplacd (cdddr ,x) ,v))
##############################################
cmucl-21d/src/code/room.lisp-792- (incf total-bytes bytes)
cmucl-21d/src/code/room.lisp:793: (setf start-addr (di::get-lisp-obj-address object)
cmucl-21d/src/code/room.lisp-794- total-bytes bytes))
##############################################
cmucl-21d/src/code/room.lisp-832- (declare (optimize (safety 0)))
cmucl-21d/src/code/room.lisp:833: (let ((addr (get-lisp-obj-address obj)))
cmucl-21d/src/code/room.lisp-834- (when (>= addr start)
##############################################
cmucl-21d/src/code/scavhook.lisp-119- (let* ((value (scavenger-hook-value scavhook))
cmucl-21d/src/code/scavhook.lisp:120: (addr (kernel:get-lisp-obj-address value)))
cmucl-21d/src/code/scavhook.lisp:121: (unless (= addr (scavenger-hook-last-addr scavhook))
cmucl-21d/src/code/scavhook.lisp-122- (setf (scavenger-hook-last-addr scavhook) addr)
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-423- buf))))
cmucl-21d/src/code/unix-glibc2.lisp:424: (addr (deref ptr offset)))
cmucl-21d/src/code/unix-glibc2.lisp-425- len))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1247- (declare (type %directory dir))
cmucl-21d/src/code/unix-glibc2.lisp:1248: (let ((daddr (alien-funcall (extern-alien "readdir64"
cmucl-21d/src/code/unix-glibc2.lisp-1249- (function system-area-pointer
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1344- (socket int)
cmucl-21d/src/code/unix-glibc2.lisp:1345: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1346- (len int))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1349- (socket int)
cmucl-21d/src/code/unix-glibc2.lisp:1350: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1351- (len int))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1358- (socket int)
cmucl-21d/src/code/unix-glibc2.lisp:1359: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1360- (len int :in-out))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1375- (socket int)
cmucl-21d/src/code/unix-glibc2.lisp:1376: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1377- (len (* unsigned)))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1380- (socket int)
cmucl-21d/src/code/unix-glibc2.lisp:1381: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1382- (len (* unsigned)))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1404- (flags int)
cmucl-21d/src/code/unix-glibc2.lisp:1405: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1406- (len int :in-out))
##############################################
cmucl-21d/src/code/unix-glibc2.lisp-1412- (flags int)
cmucl-21d/src/code/unix-glibc2.lisp:1413: (sockaddr (* t))
cmucl-21d/src/code/unix-glibc2.lisp-1414- (len int))
##############################################
cmucl-21d/src/code/unix.lisp-274- (declare (type %directory dir))
cmucl-21d/src/code/unix.lisp:275: (let ((daddr (alien-funcall (extern-alien "readdir"
cmucl-21d/src/code/unix.lisp-276- (function system-area-pointer
##############################################
cmucl-21d/src/code/unix.lisp-289- (kernel:copy-from-system-area
cmucl-21d/src/code/unix.lisp:290: (alien-sap (addr (slot direct 'd-name))) 0
cmucl-21d/src/code/unix.lisp-291- string (* vm:vector-data-offset vm:word-bits)
##############################################
cmucl-21d/src/code/unix.lisp-293- #+unicode
cmucl-21d/src/code/unix.lisp:294: (let ((sap (alien-sap (addr (slot direct 'd-name)))))
cmucl-21d/src/code/unix.lisp-295- (dotimes (k nlen)
##############################################
cmucl-21d/src/code/unix.lisp-306- (declare (type %directory dir))
cmucl-21d/src/code/unix.lisp:307: (let ((daddr (alien-funcall (extern-alien "readdir64"
cmucl-21d/src/code/unix.lisp-308- (function system-area-pointer
##############################################
cmucl-21d/src/code/unix.lisp-321- (kernel:copy-from-system-area
cmucl-21d/src/code/unix.lisp:322: (alien-sap (addr (slot direct 'd-name))) 0
cmucl-21d/src/code/unix.lisp-323- string (* vm:vector-data-offset vm:word-bits)
##############################################
cmucl-21d/src/code/unix.lisp-325- #+unicode
cmucl-21d/src/code/unix.lisp:326: (let ((sap (alien-sap (addr (slot direct 'd-name)))))
cmucl-21d/src/code/unix.lisp-327- (dotimes (k nlen)
##############################################
cmucl-21d/src/code/unix.lisp-337- (declare (type %directory dir))
cmucl-21d/src/code/unix.lisp:338: (let ((daddr (alien-funcall (extern-alien "readdir"
cmucl-21d/src/code/unix.lisp-339- (function system-area-pointer
##############################################
cmucl-21d/src/code/unix.lisp-352- (kernel:copy-from-system-area
cmucl-21d/src/code/unix.lisp:353: (alien-sap (addr (slot direct 'd-name))) 0
cmucl-21d/src/code/unix.lisp-354- string (* vm:vector-data-offset vm:word-bits)
##############################################
cmucl-21d/src/code/unix.lisp-356- #+unicode
cmucl-21d/src/code/unix.lisp:357: (let ((sap (alien-sap (addr (slot direct 'd-name)))))
cmucl-21d/src/code/unix.lisp-358- (dotimes (k nlen)
##############################################
cmucl-21d/src/code/unix.lisp-365- (declare (type %directory dir))
cmucl-21d/src/code/unix.lisp:366: (let ((daddr (alien-funcall (extern-alien "readdir64"
cmucl-21d/src/code/unix.lisp-367- (function system-area-pointer
##############################################
cmucl-21d/src/code/unix.lisp-884- buf))))
cmucl-21d/src/code/unix.lisp:885: (addr (deref ptr offset)))
cmucl-21d/src/code/unix.lisp-886- len))
##############################################
cmucl-21d/src/code/unix.lisp-2376- (socket int)
cmucl-21d/src/code/unix.lisp:2377: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2378- (len int))
##############################################
cmucl-21d/src/code/unix.lisp-2381- (socket int)
cmucl-21d/src/code/unix.lisp:2382: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2383- (len int))
##############################################
cmucl-21d/src/code/unix.lisp-2390- (socket int)
cmucl-21d/src/code/unix.lisp:2391: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2392- (len int :in-out))
##############################################
cmucl-21d/src/code/unix.lisp-2407- (socket int)
cmucl-21d/src/code/unix.lisp:2408: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2409- (len (* unsigned)))
##############################################
cmucl-21d/src/code/unix.lisp-2412- (socket int)
cmucl-21d/src/code/unix.lisp:2413: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2414- (len (* unsigned)))
##############################################
cmucl-21d/src/code/unix.lisp-2456- (flags int)
cmucl-21d/src/code/unix.lisp:2457: (sockaddr (* t))
cmucl-21d/src/code/unix.lisp-2458- (len int))
##############################################
cmucl-21d/src/code/unix.lisp-2819- (unless unix-tzname-addr
cmucl-21d/src/code/unix.lisp:2820: (setf unix-tzname-addr (system:foreign-symbol-address
cmucl-21d/src/code/unix.lisp-2821- name
cmucl-21d/src/code/unix.lisp-2822- :flavor :data)))
cmucl-21d/src/code/unix.lisp:2823: (deref (sap-alien unix-tzname-addr (array c-string 2)) dst))
cmucl-21d/src/code/unix.lisp-2824- (def-alien-routine get-timezone c-call:void
##############################################
cmucl-21d/src/code/x86-vm.lisp-152- (kernel:code-instructions code)))
cmucl-21d/src/code/x86-vm.lisp:153: (obj-start-addr (logand (kernel:get-lisp-obj-address code)
cmucl-21d/src/code/x86-vm.lisp-154- #xfffffff8))
cmucl-21d/src/code/x86-vm.lisp:155: #+nil (const-start-addr (+ obj-start-addr (* 5 4)))
cmucl-21d/src/code/x86-vm.lisp:156: (code-start-addr (sys:sap-int (kernel:code-instructions code)))
cmucl-21d/src/code/x86-vm.lisp-157- (ncode-words (kernel:code-header-ref code 1))
cmucl-21d/src/code/x86-vm.lisp:158: (code-end-addr (+ code-start-addr (* ncode-words 4))))
cmucl-21d/src/code/x86-vm.lisp-159- (unless (member kind '(:absolute :relative))
##############################################
cmucl-21d/src/code/x86-vm.lisp-166- ;; Record absolute fixups that point within the code object.
cmucl-21d/src/code/x86-vm.lisp:167: (when (> code-end-addr (sap-ref-32 sap offset) obj-start-addr)
cmucl-21d/src/code/x86-vm.lisp-168- (add-fixup code offset)))
##############################################
cmucl-21d/src/code/x86-vm.lisp-211- (logand (kernel:get-lisp-obj-address code) #xfffffff8))
cmucl-21d/src/code/x86-vm.lisp:212: (code-start-addr (sys:sap-int (kernel:code-instructions code)))
cmucl-21d/src/code/x86-vm.lisp-213- (ncode-words (kernel:code-header-ref code 1))
cmucl-21d/src/code/x86-vm.lisp:214: (code-end-addr (+ code-start-addr (* ncode-words 4))))
cmucl-21d/src/code/x86-vm.lisp-215- (ecase kind
##############################################
cmucl-21d/src/code/x86-vm.lisp-218- ;; code object.
cmucl-21d/src/code/x86-vm.lisp:219: (when (> code-end-addr (sap-ref-32 sap offset) obj-start-addr)
cmucl-21d/src/code/x86-vm.lisp-220- (add-load-time-code-fixup code offset)))
##############################################
cmucl-21d/src/code/x86-vm.lisp-318- ;; Need to extract the parts out out of the XMM register
cmucl-21d/src/code/x86-vm.lisp:319: (let ((addr (alien-funcall fn scp index)))
cmucl-21d/src/code/x86-vm.lisp-320- (complex (sap-ref-single addr 0)
##############################################
cmucl-21d/src/code/x86-vm.lisp-322- (complex-double-float
cmucl-21d/src/code/x86-vm.lisp:323: (let ((addr (alien-funcall fn scp index)))
cmucl-21d/src/code/x86-vm.lisp-324- (complex (sap-ref-double addr 0)
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-36- (recursive))
cmucl-21d/src/compiler/aliencomp.lisp:37:(defknown %slot-addr (alien-value symbol) (alien (* t))
cmucl-21d/src/compiler/aliencomp.lisp-38- (flushable movable recursive))
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-43- ())
cmucl-21d/src/compiler/aliencomp.lisp:44:(defknown %deref-addr (alien-value &rest index) (alien (* t))
cmucl-21d/src/compiler/aliencomp.lisp-45- (flushable movable))
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-50- ())
cmucl-21d/src/compiler/aliencomp.lisp:51:(defknown %heap-alien-addr (heap-alien-info) (alien (* t))
cmucl-21d/src/compiler/aliencomp.lisp-52- (flushable movable))
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-63- ())
cmucl-21d/src/compiler/aliencomp.lisp:64:(defknown %local-alien-addr (local-alien-info t) (alien (* t))
cmucl-21d/src/compiler/aliencomp.lisp-65- (flushable movable))
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-95-
cmucl-21d/src/compiler/aliencomp.lisp:96:(deftransform %slot-addr ((object slot)
cmucl-21d/src/compiler/aliencomp.lisp-97- ((alien (* t)) symbol))
cmucl-21d/src/compiler/aliencomp.lisp:98: '(%slot-addr (deref object) slot))
cmucl-21d/src/compiler/aliencomp.lisp-99-
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-166-
cmucl-21d/src/compiler/aliencomp.lisp:167:(deftransform %slot-addr ((alien slot) * * :important t)
cmucl-21d/src/compiler/aliencomp.lisp-168- (multiple-value-bind (slot-offset slot-type)
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-292-
cmucl-21d/src/compiler/aliencomp.lisp:293:(deftransform %deref-addr ((alien &rest indices) * * :important t)
cmucl-21d/src/compiler/aliencomp.lisp-294- (multiple-value-bind
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-352-
cmucl-21d/src/compiler/aliencomp.lisp:353:(deftransform %heap-alien-addr ((info) * * :important t)
cmucl-21d/src/compiler/aliencomp.lisp-354- (multiple-value-bind (sap type)
##############################################
cmucl-21d/src/compiler/aliencomp.lisp-435-
cmucl-21d/src/compiler/aliencomp.lisp:436:(deftransform %local-alien-addr ((info var) * * :important t)
cmucl-21d/src/compiler/aliencomp.lisp-437- (unless (constant-continuation-p info)
##############################################
cmucl-21d/src/compiler/disassem.lisp-1941- (print-unreadable-object (seg stream :type t)
cmucl-21d/src/compiler/disassem.lisp:1942: (let ((addr (system:sap-int (funcall (seg-sap-maker seg)))))
cmucl-21d/src/compiler/disassem.lisp-1943- (format stream "#x~x[~d]~:[ (#x~x)~;~*~]~@[ in ~s~]"
##############################################
cmucl-21d/src/compiler/disassem.lisp-2007-
cmucl-21d/src/compiler/disassem.lisp:2008:(defun dstate-cur-addr (dstate)
cmucl-21d/src/compiler/disassem.lisp-2009- "Returns the absolute address of the current instruction in DSTATE."
##############################################
cmucl-21d/src/compiler/disassem.lisp-2012-
cmucl-21d/src/compiler/disassem.lisp:2013:(defun dstate-next-addr (dstate)
cmucl-21d/src/compiler/disassem.lisp-2014- "Returns the absolute address of the next instruction in DSTATE."
##############################################
cmucl-21d/src/compiler/disassem.lisp-2074- (system:without-gcing
cmucl-21d/src/compiler/disassem.lisp:2075: (let* ((seg-base-addr (system:sap-int (funcall (seg-sap-maker segment))))
cmucl-21d/src/compiler/disassem.lisp-2076- (code-addr
##############################################
cmucl-21d/src/compiler/disassem.lisp-2078- (kernel:get-lisp-obj-address (seg-code segment))))
cmucl-21d/src/compiler/disassem.lisp:2079: (addr (+ offset seg-base-addr)))
cmucl-21d/src/compiler/disassem.lisp-2080- (declare (type address seg-base-addr code-addr addr))
##############################################
cmucl-21d/src/compiler/disassem.lisp-2084- (system:without-gcing
cmucl-21d/src/compiler/disassem.lisp:2085: (let* ((seg-base-addr (system:sap-int (funcall (seg-sap-maker segment))))
cmucl-21d/src/compiler/disassem.lisp-2086- (code-addr
##############################################
cmucl-21d/src/compiler/disassem.lisp-2088- (kernel:get-lisp-obj-address (seg-code segment))))
cmucl-21d/src/compiler/disassem.lisp:2089: (addr (+ offset code-addr)))
cmucl-21d/src/compiler/disassem.lisp-2090- (declare (type address seg-base-addr code-addr addr))
##############################################
cmucl-21d/src/compiler/disassem.lisp-2094- (system:without-gcing
cmucl-21d/src/compiler/disassem.lisp:2095: (let* ((seg-base-addr (system:sap-int (funcall (seg-sap-maker segment))))
cmucl-21d/src/compiler/disassem.lisp-2096- (code-insts-addr
cmucl-21d/src/compiler/disassem.lisp-2097- (system:sap-int (kernel:code-instructions (seg-code segment))))
cmucl-21d/src/compiler/disassem.lisp:2098: (addr (+ offset code-insts-addr)))
cmucl-21d/src/compiler/disassem.lisp-2099- (declare (type address seg-base-addr code-insts-addr addr))
##############################################
cmucl-21d/src/compiler/disassem.lisp-3172- ((null some-fun)
cmucl-21d/src/compiler/disassem.lisp:3173: (values fun-addr (- upper-bound fun-addr)))
cmucl-21d/src/compiler/disassem.lisp:3174: (let ((some-addr (fun-address some-fun)))
cmucl-21d/src/compiler/disassem.lisp-3175- (when (and (> some-addr fun-addr)
##############################################
cmucl-21d/src/compiler/disassem.lisp-3586- (slot-offset (words-to-bytes (car field)))
cmucl-21d/src/compiler/disassem.lisp:3587: (maybe-symbol-addr (- address slot-offset))
cmucl-21d/src/compiler/disassem.lisp-3588- (maybe-symbol
##############################################
cmucl-21d/src/compiler/disassem.lisp-3593-
cmucl-21d/src/compiler/disassem.lisp:3594:(defconstant nil-addr (kernel:get-lisp-obj-address nil))
cmucl-21d/src/compiler/disassem.lisp-3595-
##############################################
cmucl-21d/src/compiler/disassem.lisp-3630- (system:without-gcing
cmucl-21d/src/compiler/disassem.lisp:3631: (let ((code-addr (- (kernel:get-lisp-obj-address code)
cmucl-21d/src/compiler/disassem.lisp-3632- vm:other-pointer-type)))
cmucl-21d/src/compiler/disassem.lisp:3633: (if (or (< addr code-addr) (>= addr (+ code-addr code-size)))
cmucl-21d/src/compiler/disassem.lisp-3634- (values nil nil)
##############################################
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-370- (let* ((offset (cluster-free cluster))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp:371: (addr (+ (cluster-base cluster) offset))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-372- (sap (sap+ (cluster-sap cluster) offset)))
##############################################
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-402- ;; Return pointers just past the header.
cmucl-21d/src/compiler/generic/gengc-genesis.lisp:403: (values (+ addr (* los-object-word-overhead vm:word-bytes))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-404- (sap+ sap (* los-object-word-overhead vm:word-bytes))))))
##############################################
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-451- ((nil)
cmucl-21d/src/compiler/generic/gengc-genesis.lisp:452: (let* ((addr (logandc2 (descriptor-bits des) vm:lowtag-mask))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-453- (owner (address-owner addr)))
##############################################
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-2218- (let* ((start-offset (rem addr page-size))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp:2219: (addr (- addr start-offset))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-2220- (sap (sap+ sap (- start-offset)))
##############################################
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-2228- (if range
cmucl-21d/src/compiler/generic/gengc-genesis.lisp:2229: (if (< addr (range-address range))
cmucl-21d/src/compiler/generic/gengc-genesis.lisp-2230- (insert (make-range :address addr :bytes bytes
##############################################
cmucl-21d/src/compiler/generic/new-genesis.lisp-137- (c:backend-page-size c:*backend*)))
cmucl-21d/src/compiler/generic/new-genesis.lisp:138: (addr (allocate-system-memory actual-size)))
cmucl-21d/src/compiler/generic/new-genesis.lisp-139- (%make-space name identifier
##############################################
cmucl-21d/src/compiler/generic/new-genesis.lisp-2321- (ash (sap-ref-8 sap 3) 24)))
cmucl-21d/src/compiler/generic/new-genesis.lisp:2322: (obj-start-addr (logandc2 (descriptor-bits code-object)
cmucl-21d/src/compiler/generic/new-genesis.lisp-2323- vm:lowtag-mask)))
##############################################
cmucl-21d/src/compiler/generic/new-genesis.lisp-2808- (push name undefs)
cmucl-21d/src/compiler/generic/new-genesis.lisp:2809: (let ((addr (read-indexed fdefn
cmucl-21d/src/compiler/generic/new-genesis.lisp-2810- vm:fdefn-raw-addr-slot)))
##############################################
cmucl-21d/src/compiler/mips/insts.lisp-206- #'(lambda (value stream dstate)
cmucl-21d/src/compiler/mips/insts.lisp:207: (let ((addr (ash value 2)))
cmucl-21d/src/compiler/mips/insts.lisp-208- (disassem:maybe-note-assembler-routine addr t dstate)
##############################################
cmucl-21d/src/compiler/mips/notes.txt-101- set CODE
cmucl-21d/src/compiler/mips/notes.txt:102: calc target addr (CODE + n)
cmucl-21d/src/compiler/mips/notes.txt-103- jr
##############################################
cmucl-21d/src/compiler/mips/notes.txt-121- CODE = LRA
cmucl-21d/src/compiler/mips/notes.txt:122: calc target addr (CODE + n)
cmucl-21d/src/compiler/mips/notes.txt-123- jr
##############################################
cmucl-21d/src/compiler/mips/notes.txt-129- CODE = LRA
cmucl-21d/src/compiler/mips/notes.txt:130: calc target addr (CODE + n + 8)
cmucl-21d/src/compiler/mips/notes.txt-131- jr
##############################################
cmucl-21d/src/compiler/mips/notes.txt-138- CODE = LRA
cmucl-21d/src/compiler/mips/notes.txt:139: calc target addr (CODE + n)
cmucl-21d/src/compiler/mips/notes.txt-140- jr
##############################################
cmucl-21d/src/compiler/mips/notes.txt-152- CODE = LRA
cmucl-21d/src/compiler/mips/notes.txt:153: calc target addr (CODE + n)
cmucl-21d/src/compiler/mips/notes.txt-154- jr
##############################################
cmucl-21d/src/compiler/old-rt/core.lisp-84- (:miscop
cmucl-21d/src/compiler/old-rt/core.lisp:85: (let ((loaded-addr (get value 'lisp::%loaded-address)))
cmucl-21d/src/compiler/old-rt/core.lisp-86- (unless loaded-addr
##############################################
cmucl-21d/src/compiler/old-rt/core.lisp-88-
cmucl-21d/src/compiler/old-rt/core.lisp:89: (let ((hi-addr (logior (ash clc::type-assembler-code
cmucl-21d/src/compiler/old-rt/core.lisp-90- clc::type-shift-16)
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-284-(defun get-valid-hunk (size)
cmucl-21d/src/compiler/old-rt/genesis.lisp:285: (let ((addr (do-validate 0 size -1)))
cmucl-21d/src/compiler/old-rt/genesis.lisp-286- (values addr addr)))
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-475- (offset (handle-offset dest))
cmucl-21d/src/compiler/old-rt/genesis.lisp:476: (dest-byte-addr (+ offset offset 8)))
cmucl-21d/src/compiler/old-rt/genesis.lisp-477- (%primitive byte-blt
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-479- (space-address (svref memory space-number))
cmucl-21d/src/compiler/old-rt/genesis.lisp:480: dest-byte-addr (+ dest-byte-addr byte-count))
cmucl-21d/src/compiler/old-rt/genesis.lisp-481- dest))
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-814- (let ((obj (allocate-g-vector (dynamic trap-ltype) 3))
cmucl-21d/src/compiler/old-rt/genesis.lisp:815: (addr (miscop-address 'clc::trap-error-handler)))
cmucl-21d/src/compiler/old-rt/genesis.lisp-816- (write-indexed obj %function-code-slot
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-1078- (dolist (lab external-labels)
cmucl-21d/src/compiler/old-rt/genesis.lisp:1079: (let ((addr (+ start (cdr lab)))
cmucl-21d/src/compiler/old-rt/genesis.lisp-1080- (name (car lab)))
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-1343- (l-handle (create-assembler-handle label))
cmucl-21d/src/compiler/old-rt/genesis.lisp:1344: (l-addr (ash (logior (ash (car l-handle) 15) (cdr l-handle)) -1))
cmucl-21d/src/compiler/old-rt/genesis.lisp-1345- (inst (read-memory handle)))
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-1387- (setq hunk (int-sap hunk))
cmucl-21d/src/compiler/old-rt/genesis.lisp:1388: (setq addr (int-sap addr))
cmucl-21d/src/compiler/old-rt/genesis.lisp-1389- ;; Write the CORE file password.
##############################################
cmucl-21d/src/compiler/old-rt/genesis.lisp-1432- (ash interrupt-routine-offset -1)))
cmucl-21d/src/compiler/old-rt/genesis.lisp:1433: (addr (miscop-address 'clc::interrupt-routine)))
cmucl-21d/src/compiler/old-rt/genesis.lisp-1434- (%primitive 16bit-system-set hunk index
##############################################
cmucl-21d/src/compiler/ppc/c-call.lisp-329- (:generator 2
cmucl-21d/src/compiler/ppc/c-call.lisp:330: (inst lr addr (make-fixup (extern-alien-name foreign-symbol)
cmucl-21d/src/compiler/ppc/c-call.lisp-331- :foreign-data))
##############################################
cmucl-21d/src/compiler/ppc/insts.lisp-197- (let* ((value (+ d (ash (cdr addis) 16)))
cmucl-21d/src/compiler/ppc/insts.lisp:198: (addr (ldb (byte 32 0) value)))
cmucl-21d/src/compiler/ppc/insts.lisp-199- (or (disassem::note-code-constant-absolute addr dstate)
##############################################
cmucl-21d/src/compiler/ppc/insts.lisp-530- #'(lambda (value stream dstate)
cmucl-21d/src/compiler/ppc/insts.lisp:531: (let ((addr (ash value 2)))
cmucl-21d/src/compiler/ppc/insts.lisp-532- (disassem:maybe-note-assembler-routine addr t dstate)
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-357- x))))
cmucl-21d/src/compiler/rt/mc68881.lisp:358: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-359- (* (tn-offset stack-tn) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-407- (signed-stack
cmucl-21d/src/compiler/rt/mc68881.lisp:408: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-409- (* (tn-offset y) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-411- (signed-reg
cmucl-21d/src/compiler/rt/mc68881.lisp:412: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-413- (* (tn-offset stack-temp) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-442- (storew bits (current-nfp-tn vop) (tn-offset stack-temp))
cmucl-21d/src/compiler/rt/mc68881.lisp:443: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-444- (* (tn-offset stack-temp) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-450- (mc68881-single-reg
cmucl-21d/src/compiler/rt/mc68881.lisp:451: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-452- (* (tn-offset bits) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-478- (when (sc-is res mc68881-double-reg)
cmucl-21d/src/compiler/rt/mc68881.lisp:479: (inst cal addr (current-nfp-tn vop) (* (tn-offset temp) vm:word-bytes))
cmucl-21d/src/compiler/rt/mc68881.lisp-480- (inst mc68881-load res addr :double scratch))))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-493- (:generator 20
cmucl-21d/src/compiler/rt/mc68881.lisp:494: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-495- (* (tn-offset stack-temp) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/rt/mc68881.lisp-512- (:generator 20
cmucl-21d/src/compiler/rt/mc68881.lisp:513: (inst cal addr (current-nfp-tn vop)
cmucl-21d/src/compiler/rt/mc68881.lisp-514- (* (tn-offset stack-temp) vm:word-bytes))
##############################################
cmucl-21d/src/compiler/sparc/c-call.lisp-256- (:generator 2
cmucl-21d/src/compiler/sparc/c-call.lisp:257: (inst li addr (make-fixup (extern-alien-name foreign-symbol)
cmucl-21d/src/compiler/sparc/c-call.lisp-258- :foreign-data))
##############################################
cmucl-21d/src/compiler/sparc/c-callback.lisp-185- ;; And away we go to funcall3!
cmucl-21d/src/compiler/sparc/c-callback.lisp:186: (let ((addr (alien::address-of-funcall3)))
cmucl-21d/src/compiler/sparc/c-callback.lisp-187- (inst sethi %l0 (ldb (byte 22 10) addr))
##############################################
cmucl-21d/src/compiler/sparc/insts.lisp-273- ;; final value.
cmucl-21d/src/compiler/sparc/insts.lisp:274: (let ((addr (+ immed-val (ash (cdr sethi) 10))))
cmucl-21d/src/compiler/sparc/insts.lisp-275- (or (disassem::note-code-constant-absolute addr dstate)
##############################################
cmucl-21d/src/compiler/sparc/insts.lisp-359- ;; final value.
cmucl-21d/src/compiler/sparc/insts.lisp:360: (let ((addr (+ immed-val (ash (cdr sethi) 10))))
cmucl-21d/src/compiler/sparc/insts.lisp-361- (disassem::maybe-note-assembler-routine addr t dstate)
##############################################
cmucl-21d/src/compiler/sparc/insts.lisp-379- (when sethi
cmucl-21d/src/compiler/sparc/insts.lisp:380: (let ((addr (+ immed-val (ash (cdr sethi) 10))))
cmucl-21d/src/compiler/sparc/insts.lisp-381- (disassem::maybe-note-assembler-routine addr nil dstate)
##############################################
cmucl-21d/src/contrib/embedded-c/embedded-c.lisp-232- (sys::dlerror)
cmucl-21d/src/contrib/embedded-c/embedded-c.lisp:233: (let ((addr (sys::dlsym handle (string name)))
cmucl-21d/src/contrib/embedded-c/embedded-c.lisp-234- (msg (sys::dlerror)))
##############################################
cmucl-21d/src/contrib/ops/ops-compile.lisp-144-
cmucl-21d/src/contrib/ops/ops-compile.lisp:145:(defun rhs-part (pnode) (caddr (cdddr pnode)))
cmucl-21d/src/contrib/ops/ops-compile.lisp-146-
##############################################
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-504-#+(or)
cmucl-21d/src/contrib/unix/unix-glibc2.lisp:505:(defun unix-gethostbyaddr(addr length type)
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-506- _N"Return entry from host data base which address match ADDR with
##############################################
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-579-#+(or)
cmucl-21d/src/contrib/unix/unix-glibc2.lisp:580:(defun unix-getnetbyaddr (net type)
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-581- _N"Return entry from network data base which address match NET and
##############################################
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-744- (ai-addrlen int) ; Length of socket address.
cmucl-21d/src/contrib/unix/unix-glibc2.lisp:745: (ai-addr (* (struct sockaddr)))
cmucl-21d/src/contrib/unix/unix-glibc2.lisp-746- ; Socket address for socket.
##############################################
cmucl-21d/src/docs/cmu-user/aliens.tex-655- ;; extracting it:
cmucl-21d/src/docs/cmu-user/aliens.tex:656: (with-alien ((a (* (array (* (struct foo)) 100)) (addr (slot f 'b))))
cmucl-21d/src/docs/cmu-user/aliens.tex-657- ;;
##############################################
cmucl-21d/src/docs/cmu-user/aliens.tex-929- ;;
cmucl-21d/src/docs/cmu-user/aliens.tex:930: (let ((addr (+ 8 (logandc1 7 (kernel:get-lisp-obj-address data))))
cmucl-21d/src/docs/cmu-user/aliens.tex-931- (type-size
##############################################
cmucl-21d/src/docs/cmu-user/aliens.tex-950- (system:int-sap (the (unsigned-byte 32)
cmucl-21d/src/docs/cmu-user/aliens.tex:951: (+ addr (* type-size start)))))))
cmucl-21d/src/docs/cmu-user/aliens.tex-952-\end{example}
##############################################
cmucl-21d/src/docs/cmu-user/aliens.tex-988- (sys:without-gcing
cmucl-21d/src/docs/cmu-user/aliens.tex:989: (let ((x-addr (sys:vector-sap x))
cmucl-21d/src/docs/cmu-user/aliens.tex:990: (y-addr (sys:vector-sap y)))
cmucl-21d/src/docs/cmu-user/aliens.tex-991- (dotprod x-addr y-addr 10000)))))
##############################################
cmucl-21d/src/docs/cmu-user/compiler-hint.tex-2577-\begin{lisp}
cmucl-21d/src/docs/cmu-user/compiler-hint.tex:2578:(rplaca (caddr (cadddr x)) (caddr y))
cmucl-21d/src/docs/cmu-user/compiler-hint.tex-2579-\end{lisp}
##############################################
cmucl-21d/src/docs/hem/user/mail.mss-247- %<(nonnull)%(void(width))%(putaddr To: )\n%>\
cmucl-21d/src/docs/hem/user/mail.mss:248: %(lit)%(formataddr{to})%(formataddr{cc})%(formataddr(me))\
cmucl-21d/src/docs/hem/user/mail.mss-249- %(formataddr{resent-to})\
##############################################
cmucl-21d/src/docs/internals/retargeting.tex-766- CODE <- function-entry (the first word after the-fun)
cmucl-21d/src/docs/internals/retargeting.tex:767: LIP <- calc first instruction addr (CODE + constant-offset)
cmucl-21d/src/docs/internals/retargeting.tex-768- jump and run off temp
##############################################
cmucl-21d/src/docs/internals/retargeting.tex-836- CSP <- CFP + NARGS * address-units-per-word
cmucl-21d/src/docs/internals/retargeting.tex:837: LIP <- calc target addr (CODE + skip over LRA header word)
cmucl-21d/src/docs/internals/retargeting.tex-838-CFP <- value of VOP argument with OCFP
##############################################
cmucl-21d/src/docs/internals/retargeting.tex-863-CODE <- value of VOP argument with LRA
cmucl-21d/src/docs/internals/retargeting.tex:864:LIP <- calc target addr (CODE + skip over LRA header word)
cmucl-21d/src/docs/internals/retargeting.tex-865-jump and run off LIP
##############################################
cmucl-21d/src/docs/internals/retargeting.tex-982- times address units per word
cmucl-21d/src/docs/internals/retargeting.tex:983:LIP <- calc target addr (value of VOP arg + skip over LRA header word)
cmucl-21d/src/docs/internals/retargeting.tex-984-CFP <- value of VOP arg
##############################################
cmucl-21d/src/lisp/Darwin-os.c-458-boolean
cmucl-21d/src/lisp/Darwin-os.c:459:valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/Darwin-os.c-460-{
##############################################
cmucl-21d/src/lisp/FreeBSD-os.c-218-boolean
cmucl-21d/src/lisp/FreeBSD-os.c:219:valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/FreeBSD-os.c-220-{
##############################################
cmucl-21d/src/lisp/GNUmakefile-110- for po in $(LOCALE_DIRS); do \
cmucl-21d/src/lisp/GNUmakefile:111: d=`dirname $$pot`; \
cmucl-21d/src/lisp/GNUmakefile:112: f=`basename $$pot .pot`; \
cmucl-21d/src/lisp/GNUmakefile-113- echo ; \
##############################################
cmucl-21d/src/lisp/GNUmakefile-131- for po in $(LOCALE_DIRS); do \
cmucl-21d/src/lisp/GNUmakefile:132: d=`dirname $$pot`; \
cmucl-21d/src/lisp/GNUmakefile:133: f=`basename $$pot .pot`; \
cmucl-21d/src/lisp/GNUmakefile-134- touch ../../src/$$po/$$f.po; \
##############################################
cmucl-21d/src/lisp/Linux-os.c-381-boolean
cmucl-21d/src/lisp/Linux-os.c:382:valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/Linux-os.c-383-{
##############################################
cmucl-21d/src/lisp/Linux-os.c-458-
cmucl-21d/src/lisp/Linux-os.c:459: addr = arch_get_bad_addr(signal, code, context);
cmucl-21d/src/lisp/Linux-os.c-460-
##############################################
cmucl-21d/src/lisp/NetBSD-os.c-273-boolean
cmucl-21d/src/lisp/NetBSD-os.c:274:valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/NetBSD-os.c-275-{
##############################################
cmucl-21d/src/lisp/OpenBSD-os.c-143-boolean
cmucl-21d/src/lisp/OpenBSD-os.c:144:valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/OpenBSD-os.c-145-{
##############################################
cmucl-21d/src/lisp/alpha-arch.c-41-os_vm_address_t
cmucl-21d/src/lisp/alpha-arch.c:42:arch_get_bad_addr(int sig, int code, struct sigcontext * scp)
cmucl-21d/src/lisp/alpha-arch.c-43-{
##############################################
cmucl-21d/src/lisp/arch.h-18-extern void arch_set_pseudo_atomic_interrupted(os_context_t * scp);
cmucl-21d/src/lisp/arch.h:19:extern os_vm_address_t arch_get_bad_addr(HANDLER_ARGS);
cmucl-21d/src/lisp/arch.h-20-extern unsigned char *arch_internal_error_arguments(os_context_t * scp);
##############################################
cmucl-21d/src/lisp/gencgc.c-8563-#define current_region_free_pointer get_current_region_free()
cmucl-21d/src/lisp/gencgc.c:8564:#define current_region_end_addr ((void *) SymbolValue(CURRENT_REGION_END_ADDR))
cmucl-21d/src/lisp/gencgc.c-8565-
##############################################
cmucl-21d/src/lisp/hppa-arch.c-27-os_vm_address_t
cmucl-21d/src/lisp/hppa-arch.c:28:arch_get_bad_addr(int signal, int code, struct sigcontext * scp)
cmucl-21d/src/lisp/hppa-arch.c-29-{
##############################################
cmucl-21d/src/lisp/hpux-os.c-175-
cmucl-21d/src/lisp/hpux-os.c:176:boolean valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/hpux-os.c-177-{
##############################################
cmucl-21d/src/lisp/interrupt.c-353- } else {
cmucl-21d/src/lisp/interrupt.c:354: lispobj *badaddr = (lispobj *) arch_get_bad_addr(signal, code, context);
cmucl-21d/src/lisp/interrupt.c-355-
##############################################
cmucl-21d/src/lisp/irix-os.c-109-
cmucl-21d/src/lisp/irix-os.c:110:boolean valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/irix-os.c-111-{
##############################################
cmucl-21d/src/lisp/mach-os.c-127-boolean
cmucl-21d/src/lisp/mach-os.c:128:valid_addr(test)
cmucl-21d/src/lisp/mach-os.c-129- vm_address_t test;
##############################################
cmucl-21d/src/lisp/mips-arch.c-37-os_vm_address_t
cmucl-21d/src/lisp/mips-arch.c:38:arch_get_bad_addr(int sig, int code, struct sigcontext * scp)
cmucl-21d/src/lisp/mips-arch.c-39-{
##############################################
cmucl-21d/src/lisp/monitor.c-95- if (more_p(ptr)) {
cmucl-21d/src/lisp/monitor.c:96: addr = parse_addr(ptr);
cmucl-21d/src/lisp/monitor.c-97-
##############################################
cmucl-21d/src/lisp/monitor.c-121-#endif
cmucl-21d/src/lisp/monitor.c:122: if (valid_addr((os_vm_address_t) addr)) {
cmucl-21d/src/lisp/monitor.c-123-#ifndef alpha
##############################################
cmucl-21d/src/lisp/monitor.c-196- if (more_p(ptr)) {
cmucl-21d/src/lisp/monitor.c:197: addr = (lispobj *) PTR((long) parse_addr(ptr));
cmucl-21d/src/lisp/monitor.c-198- if (more_p(ptr)) {
##############################################
cmucl-21d/src/lisp/os.h-91- os_vm_prot_t protection);
cmucl-21d/src/lisp/os.h:92:extern boolean valid_addr(os_vm_address_t test);
cmucl-21d/src/lisp/os.h-93-
##############################################
cmucl-21d/src/lisp/osf1-os.c-88-
cmucl-21d/src/lisp/osf1-os.c:89:boolean valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/osf1-os.c-90-{
##############################################
cmucl-21d/src/lisp/osf1-os.c-105- context->sc_pc -= 4; /* pc is +4 on bus error!?!!? */
cmucl-21d/src/lisp/osf1-os.c:106: if (arch_get_bad_addr(signal, code, context) &&
cmucl-21d/src/lisp/osf1-os.c-107- context->sc_regs[reg_ALLOC] & 2) {
##############################################
cmucl-21d/src/lisp/parse.c-224-char *
cmucl-21d/src/lisp/parse.c:225:parse_addr(char **ptr)
cmucl-21d/src/lisp/parse.c-226-{
##############################################
cmucl-21d/src/lisp/parse.c-246-
cmucl-21d/src/lisp/parse.c:247: if (!valid_addr((os_vm_address_t) result)) {
cmucl-21d/src/lisp/parse.c-248- printf("Invalid address: 0x%lx\n", result);
##############################################
cmucl-21d/src/lisp/parse.c-354- pointer &= ~3;
cmucl-21d/src/lisp/parse.c:355: if (valid_addr((os_vm_address_t) pointer))
cmucl-21d/src/lisp/parse.c-356- result = *(lispobj *) pointer;
##############################################
cmucl-21d/src/lisp/parse.h-16-extern lispobj parse_lispobj(char **ptr);
cmucl-21d/src/lisp/parse.h:17:extern char *parse_addr(char **ptr);
cmucl-21d/src/lisp/parse.h-18-extern long parse_number(char **ptr);
##############################################
cmucl-21d/src/lisp/ppc-arch.c-57-
cmucl-21d/src/lisp/ppc-arch.c:58:os_vm_address_t arch_get_bad_addr(HANDLER_ARGS)
cmucl-21d/src/lisp/ppc-arch.c-59-{
##############################################
cmucl-21d/src/lisp/print.c-299-
cmucl-21d/src/lisp/print.c:300: if (!valid_addr((os_vm_address_t) obj))
cmucl-21d/src/lisp/print.c-301- printf("(invalid address)");
##############################################
cmucl-21d/src/lisp/print.c-332-{
cmucl-21d/src/lisp/print.c:333: if (!valid_addr((os_vm_address_t) obj))
cmucl-21d/src/lisp/print.c-334- printf("(invalid address)");
##############################################
cmucl-21d/src/lisp/print.c-394-
cmucl-21d/src/lisp/print.c:395: if (!valid_addr((os_vm_address_t) obj)) {
cmucl-21d/src/lisp/print.c-396- printf("(invalid address)");
##############################################
cmucl-21d/src/lisp/print.c-488-{
cmucl-21d/src/lisp/print.c:489: if (!valid_addr((os_vm_address_t) obj))
cmucl-21d/src/lisp/print.c-490- printf("(invalid address)");
##############################################
cmucl-21d/src/lisp/search.c-19- while ((*count == -1 || (*count > 0)) &&
cmucl-21d/src/lisp/search.c:20: valid_addr((os_vm_address_t) * start)) {
cmucl-21d/src/lisp/search.c-21- obj = **start;
##############################################
cmucl-21d/src/lisp/search.c-43- symbol_name = (struct vector *) PTR(symbol->name);
cmucl-21d/src/lisp/search.c:44: if (valid_addr((os_vm_address_t) symbol_name) &&
cmucl-21d/src/lisp/search.c-45- TypeOf(symbol_name->header) == type_SimpleString &&
##############################################
cmucl-21d/src/lisp/solaris-os.c-191-
cmucl-21d/src/lisp/solaris-os.c:192:boolean valid_addr(os_vm_address_t addr)
cmucl-21d/src/lisp/solaris-os.c-193-{
##############################################
cmucl-21d/src/lisp/sparc-arch.c-34-os_vm_address_t
cmucl-21d/src/lisp/sparc-arch.c:35:arch_get_bad_addr(HANDLER_ARGS)
cmucl-21d/src/lisp/sparc-arch.c-36-{
##############################################
cmucl-21d/src/lisp/sunos-os.c-681-boolean
cmucl-21d/src/lisp/sunos-os.c:682:valid_addr(test)
cmucl-21d/src/lisp/sunos-os.c-683- os_vm_address_t test;
##############################################
cmucl-21d/src/pcl/boot.lisp-1200- (when (symbolp var)
cmucl-21d/src/pcl/boot.lisp:1201: (let* ((vr (caddr (variable-declaration 'variable-rebinding var env)))
cmucl-21d/src/pcl/boot.lisp-1202- (var (or vr var))
##############################################
cmucl-21d/src/pcl/boot.lisp-2094-(defun early-method-lambda-list (early-method)
cmucl-21d/src/pcl/boot.lisp:2095: (caddr (fifth early-method)))
cmucl-21d/src/pcl/boot.lisp-2096-
##############################################
cmucl-21d/src/pcl/gf-call-optimization.lisp-120- (when param
cmucl-21d/src/pcl/gf-call-optimization.lisp:121: (let ((cname (caddr (variable-declaration 'class param
cmucl-21d/src/pcl/gf-call-optimization.lisp-122- env))))
##############################################
cmucl-21d/src/pcl/method-slot-access-optimization.lisp-222- (flet ((declared-class (param env)
cmucl-21d/src/pcl/method-slot-access-optimization.lisp:223: (caddr (variable-declaration 'class param env))))
cmucl-21d/src/pcl/method-slot-access-optimization.lisp-224- (let* ((param (method-parameter instance required-params env))
##############################################
cmucl-21d/src/pcl/walk.lisp-284-(defun env-declarations (env)
cmucl-21d/src/pcl/walk.lisp:285: (caddr (env-lock env)))
cmucl-21d/src/pcl/walk.lisp-286-
##############################################
cmucl-21d/src/pcl/walk.lisp-291-(defun note-declaration (declaration env)
cmucl-21d/src/pcl/walk.lisp:292: (push declaration (caddr (env-lock env))))
cmucl-21d/src/pcl/walk.lisp-293-
##############################################
cmucl-21d/src/tools/heapanal.lisp-129-(defun find-object (info addr &optional create)
cmucl-21d/src/tools/heapanal.lisp:130: (let ((object (gethash addr (heap-info-objects info))))
cmucl-21d/src/tools/heapanal.lisp-131- (when (and (null object) create)
##############################################
cmucl-21d/src/tools/heapanal.lisp-138- (heap-info-queue-tail info) new)))
cmucl-21d/src/tools/heapanal.lisp:139: (setf (gethash addr (heap-info-objects info)) object))
cmucl-21d/src/tools/heapanal.lisp-140- object))
##############################################
cmucl-21d/src/tools/heapanal.lisp-169- (when (dynamic-pointer-p info value)
cmucl-21d/src/tools/heapanal.lisp:170: (push (+ addr (* index 4))
cmucl-21d/src/tools/heapanal.lisp-171- (object-references (find-object info value t))))))
##############################################
cmucl-21d/src/tools/heapanal.lisp-188-(defun grovel-object (info object)
cmucl-21d/src/tools/heapanal.lisp:189: (let* ((orig-addr (object-address object))
cmucl-21d/src/tools/heapanal.lisp-190- (lowtag (logand orig-addr vm:lowtag-mask))
##############################################
cmucl-21d/src/tools/heapanal.lisp-342- (words (grovel-object info (make-object object))))
cmucl-21d/src/tools/heapanal.lisp:343: (incf addr (ash (ash (1+ words) -1) 3))))))
cmucl-21d/src/tools/heapanal.lisp-344-
##############################################
cmucl-21d/src/tools/heapanal.lisp-426-(defun extract-symbol-name (info address)
cmucl-21d/src/tools/heapanal.lisp:427: (let* ((pname-addr (sap-ref-32 (read-heap info
cmucl-21d/src/tools/heapanal.lisp-428- (- address
##############################################
cmucl-21d/src/tools/heapanal.lisp-443- (if (object-p object)
cmucl-21d/src/tools/heapanal.lisp:444: (let* ((orig-addr (object-address object))
cmucl-21d/src/tools/heapanal.lisp-445- (lowtag (logand orig-addr vm:lowtag-mask))
cmucl-21d/src/tools/heapanal.lisp:446: (addr (- orig-addr lowtag)))
cmucl-21d/src/tools/heapanal.lisp-447- (ecase lowtag
##############################################
cmucl-21d/src/tools/linker.sh-28-if [ $# -ne 6 ]; then
cmucl-21d/src/tools/linker.sh:29: echo "Usage: `basename $0` <c-compiler> <initial-func-addr> <executable> <ro-addr> <static-addr> <dyn-addr>"
cmucl-21d/src/tools/linker.sh-30- exit 1
##############################################
cmucl-21d/src/tools/linker.sh-37-# Figure out the directory and file name of the executable.
cmucl-21d/src/tools/linker.sh:38:OUTDIR=`dirname $EXEC`
cmucl-21d/src/tools/linker.sh:39:OUTNAME=`basename $EXEC`
cmucl-21d/src/tools/linker.sh-40-
##############################################
cmucl-21d/src/tools/linker.sh-42-# locations of lisp.a.
cmucl-21d/src/tools/linker.sh:43:CMUCLLIB=`dirname $0`
cmucl-21d/src/tools/linker.sh-44-
##############################################
cmucl-21d/debian/changelog-417- * fix brown bag bug: use cmucl in script, not lisp
cmucl-21d/debian/changelog:418: * New version should Fixes: #483331 because of asm change
cmucl-21d/debian/changelog-419- * tag
##############################################
cmucl-21d/debian/own-work/mp-test.lisp-66- (length (length stack)))
cmucl-21d/debian/own-work/mp-test.lisp:67: (do ((addr (- (alien:extern-alien "control_stack_end" alien:unsigned)
cmucl-21d/debian/own-work/mp-test.lisp-68- 4)
##############################################
cmucl-21d/debian/own-work/mp-test.lisp-74- (type (unsigned-byte 29) index))
cmucl-21d/debian/own-work/mp-test.lisp:75: (format t "0x~8x : 0x~8x~%" addr (aref stack index)))
cmucl-21d/debian/own-work/mp-test.lisp-76- (format t "Stack pointer: 0x~x~%" (aref stack 0))
##############################################
cmucl-21d/debian/own-work/tutorials/other/cl.txt-631-
cmucl-21d/debian/own-work/tutorials/other/cl.txt:632:DEC responded to this proposal with more enthusiasm than I expected. It
cmucl-21d/debian/own-work/tutorials/other/cl.txt-633-is now nearly certain that they will be placing two DEC employees
##############################################
cmucl-21d/debian/patches/debian-branding.patch-9-
cmucl-21d/debian/patches/debian-branding.patch:10: TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/debian/patches/debian-branding.patch-11--LISP="${2:-lisp}"
##############################################
cmucl-21d/.pc/debian-branding.patch/bin/build-world.sh-14-
cmucl-21d/.pc/debian-branding.patch/bin/build-world.sh:15:TARGET="`echo $1 | sed 's:/*$::'`"
cmucl-21d/.pc/debian-branding.patch/bin/build-world.sh-16-LISP="${2:-lisp}"
##############################################
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh-19-##--
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh:20:prgm_name=`basename $0` bld_dir=$1 lisp_variant=$2 motif_variant=$3
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh-21-
##############################################
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh-96-# Create a directory tree that mirrors the source directory tree
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh:97:[ -d "$bld_dir" -o -f "$bld_dir" ] && quit "Exists: `ls -ld $bld_dir`"
cmucl-21d/.pc/use-clang.patch/bin/create-target.sh-98-mkdir -p "$bld_dir"