===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp-620-
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp:621: (fli:with-dynamic-foreign-objects ((sock-addr (:struct %sockaddr-un)))
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp-622- (let ((pathname-string (namestring (translate-logical-pathname (truename pathname)))))
##############################################
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp-920- (error "Host ~S has no ~S address" host family)))
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp:921: (let ((addr (comm:get-host-entry (string host) :fields '(:address))))
cl-clx-sbcl-0.7.4.20160323/dep-lispworks.lisp-922- (when (not addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/socket.c-87- /* Get the statistics on the specified host. */
cl-clx-sbcl-0.7.4.20160323/socket.c:88: if ((inaddr.sin_addr.s_addr = inet_addr(host)) == -1)
cl-clx-sbcl-0.7.4.20160323/socket.c-89- {
##############################################
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp-1133- (assert (= (ipc::hostent-length hostent) 4))
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp:1134: (let ((addr (ipc::hostent-addr hostent)))
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp-1135- (when (or (member comp::.target.
##############################################
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp-1139- ;; BSD 4.3 based systems require an extra indirection
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp:1140: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cl-clx-sbcl-0.7.4.20160323/dep-allegro.lisp-1141- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/dep-openmcl.lisp-830- ((:internet nil 0)
cl-clx-sbcl-0.7.4.20160323/dep-openmcl.lisp:831: (let* ((addr (ccl::htonl (ccl::host-as-inet-host host))))
cl-clx-sbcl-0.7.4.20160323/dep-openmcl.lisp-832- (cons :internet (list
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2570-
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2571: (let ((hostent (posix::resolve-host-ipaddr (string host))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2572- (when (not (posix::hostent-addr-list hostent))
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2577- (no-address-error))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2578: (let ((addr (first (posix::hostent-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2579- (etypecase addr
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2606- ((:internet nil 0)
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2607: (let ((addr (ip:get-ip-address host)))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2608: (unless addr (error "~s isn't an internet host name" host))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2609- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2614- ((:chaos 2)
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2615: (let ((addr (first (chaos:chaos-addresses host))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2616: (unless addr (error "~s isn't a chaos host name" host))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2617- (list :chaos
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2682- (assert (= (ipc::hostent-length hostent) 4))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2683: (let ((addr (ipc::hostent-addr hostent)))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2684- (when (or (member comp::.target.
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2688- ;; BSD 4.3 based systems require an extra indirection
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2689: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2690- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2728- #+rwi-sockets
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2729: (let ((addr (first (ext::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2730- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2734- #+mna-sockets
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2735: (let ((addr (first (net.sbcl.sockets::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2736- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2765- (error "Unknown host ~S" host)))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp:2766: (let ((addr (first (nth-value 3 (si::lookup-host-entry (string host))))))
cl-clx-sbcl-0.7.4.20160323/.pc/8bit.patch/dependent.lisp-2767- (unless addr
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2571-
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2572: (let ((hostent (posix::resolve-host-ipaddr (string host))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2573- (when (not (posix::hostent-addr-list hostent))
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2578- (no-address-error))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2579: (let ((addr (first (posix::hostent-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2580- (etypecase addr
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2607- ((:internet nil 0)
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2608: (let ((addr (ip:get-ip-address host)))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2609: (unless addr (error "~s isn't an internet host name" host))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2610- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2615- ((:chaos 2)
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2616: (let ((addr (first (chaos:chaos-addresses host))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2617: (unless addr (error "~s isn't a chaos host name" host))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2618- (list :chaos
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2683- (assert (= (ipc::hostent-length hostent) 4))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2684: (let ((addr (ipc::hostent-addr hostent)))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2685- (when (or (member comp::.target.
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2689- ;; BSD 4.3 based systems require an extra indirection
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2690: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2691- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2729- #+rwi-sockets
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2730: (let ((addr (first (ext::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2731- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2735- #+mna-sockets
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2736: (let ((addr (first (net.sbcl.sockets::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2737- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2766- (error "Unknown host ~S" host)))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp:2767: (let ((addr (first (nth-value 3 (si::lookup-host-entry (string host))))))
cl-clx-sbcl-0.7.4.20160323/.pc/sbcl.patch/dependent.lisp-2768- (unless addr
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2571-
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2572: (let ((hostent (posix::resolve-host-ipaddr (string host))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2573- (when (not (posix::hostent-addr-list hostent))
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2578- (no-address-error))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2579: (let ((addr (first (posix::hostent-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2580- (etypecase addr
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2607- ((:internet nil 0)
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2608: (let ((addr (ip:get-ip-address host)))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2609: (unless addr (error "~s isn't an internet host name" host))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2610- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2615- ((:chaos 2)
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2616: (let ((addr (first (chaos:chaos-addresses host))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2617: (unless addr (error "~s isn't a chaos host name" host))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2618- (list :chaos
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2683- (assert (= (ipc::hostent-length hostent) 4))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2684: (let ((addr (ipc::hostent-addr hostent)))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2685- (when (or (member comp::.target.
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2689- ;; BSD 4.3 based systems require an extra indirection
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2690: (setq addr (si:memref-int addr 0 0 :unsigned-long)))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2691- (list :internet
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2729- #+rwi-sockets
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2730: (let ((addr (first (ext::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2731- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2735- #+mna-sockets
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2736: (let ((addr (first (net.sbcl.sockets::host-entry-addr-list hostent))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2737- (list (ldb (byte 8 24) addr)
##############################################
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2766- (error "Unknown host ~S" host)))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp:2767: (let ((addr (first (nth-value 3 (si::lookup-host-entry (string host))))))
cl-clx-sbcl-0.7.4.20160323/dependent.lisp-2768- (unless addr