# FASL compiled from "/Users/farr/Documents/code/shark-profile/shark-profile.lisp" at Monday, May 9, 2005 01:25:30 PM EDT on WESTGATE-ONE-O-FIVE.MIT.EDU using SBCL version 0.9.0.26 PPC7(:SB-PACKAGE-LOCKS :SB-UNICODE)?>#N SHARK-PROFILEQSB-INTR FIND-UNDELETED-PACKAGE-OR-LOSE%%&'(NTOPLEVEL(*$NMINIMALNSTANDARD$$$$(#1 -(.1/0; *::  S9`:x}{x~xN 6~гx`:ss,@lX*+|@l3| A$j3,@DJ/J3| @0S ~XxoO}{x|ox;}SSxN S NS 1N=?1(LFUNCTION38?>4#xQSB-DIR 4 FUN-DEBUG-FUNY#XBReturns (values lower-bound upper-bound) in memory of the code vector of fun. Courtesy Juho Snellman; uses the internals, and therefore 'could break at any time'.YQSB-IMPLR Z%DEFUN<"#[LQUOTEB]  NAMED-LAMBDA%%_Y%%`a)(b$+,$$$$(#1 c(d1ef; *:: 3 S~[xS9`:}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?ga2h8?>i#4 Z*IGNORED-PACKAGE-LOCKS*NINVALID AFUNCTION-WITH-BOUNDS&defining ~A as a structurel #ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED<DEFSTRUCT FUNCTION-WITH-BOUNDSn"#LLET TOPMOST26%%qrLWHEN%%t%%uvw)(x$+,$$$$(#(1 y#"LFLET CLEANUP-FUN-27|NCLEANUP(~$++#N###41 (1;4 *::`~Xx8:1b*8`:j ~12O4S ,JÁS| A}sxoDR9|9 xO@#Q DEFSTRUCT-DESCRIPTIONR  ($$-k AFUNCTION-WITH-BOUNDS- AMAKE-FUNCTION-WITH-BOUNDS ACOPY-FUNCTION-WITH-BOUNDS AFUNCTION-WITH-BOUNDS-PQ DEFSTRUCT-SLOT-DESCRIPTIONR  ($$ - ANAME$ AFUNCTION-WITH-BOUNDS-NAME1  A LOWER-BOUND$ A FUNCTION-WITH-BOUNDS-LOWER-BOUND1  A UPPER-BOUND$ A FUNCTION-WITH-BOUNDS-UPPER-BOUND1 $L STRUCTURE$$$N UNSPECIFIED1  (  %DEFSTRUCT<"#\"#<SB-KERNEL:DEFSTRUCT-DESCRIPTION>\%%)($+,$$$$(#1 (1;*::  3S9`:p}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?28?># %COMPILER-DEFSTRUCT<"#)($+,$$$$(#1 (1;*::  3S9`:p}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?28?># NNAMEN LOWER-BOUNDN UPPER-BOUNDNALLOW-OTHER-KEYSQ AFUNCTION-WITH-BOUNDSR$$- %MAKE-INSTANCE-WITH-LAYOUT<n"@D$$#m($+,#### 1 #" &MORE-PROCESSORNOPTIONAL$$#n$$#($+,#### 1 #"  VARARGS-ENTRY$ G14-DEFAULTING-TEMP$d$ G15-DEFAULTING-TEMP#$ G16-DEFAULTING-TEMP#( $$$$(,$$$## 1 (1;  *:: ~x, ~ZA`4@$~x|Z848A4A04A$4#A4CA 4c ~ųx8gP~x8~Jx~Xx~Vx~Wx~Tx~Ux~Yxp,@H|#x8f.8|#x8f}[.8S | @ xHlS| ALS| AHS| AD}XSx8:1V:8cZJx J~12YxHxHxHx,@`|@ xH$|@Y !N  S!9`:}{x~xN 6~гx`:sO XOX OXoO}{x|ox;}SSxN =?L&KEY G14 G15 G162SkU?>#[<"#[\_%%)($+,$$$$(#1 (1;*:: 3 ~Zx~[xS9`:x}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?28?>#LFTYPE  SFUNCTIONL*kLPROCLAIM<"#\u)($+,$$$$(#1 (1;*::  S9`:p}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?28?># k  FIND-CLASSOID<$@"#\k)( $+,##$ $@1 !("1#$;@*:: ~Xx}{x~ϳx;~xN =?%2&8?>'#LSYMBOL-FUNCTION<B<<DEFUN BOUNDS-FROM-SYMBOL("@ ABOUNDS-FROM-SYMBOL*D$$#m$$#(+$+,##$ #1 ,$,")$$$d(-$+,$$$$0#1 .(/101; *::    S 9`:}{x~xN "6~гx`:sxS9`:}{x~xN .6~гxH~Yx:sHx*x 8 SOS!9`N =?2) ASYMB42R5?>7#6)[<"#[\)7_%%89)(:$+,$$$$(#1 ;(<1=>;*:: 3 ~Zx~[xS9`:x}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =??92@8?>A#{~%~A~%0x~x~%0x~x~%}~%ALFORMAT<kDEFUN WRITE-SPATCH-RECORDC"@ AWRITE-SPATCH-RECORDED$$#m$$#$$#(F$+,##$$#1 G$X" HAIRY-ARG-PROCESSORDI$ AFWB#$ AOUT#(L$$  OPTIONAL-ARGS$(N,##$\#1 O#" &OPTIONAL-PROCESSORDQ$$#(R$+,####1 S(T1UV; *:: 5x, @x~ijxH, @x~ijxH m~xr,@tT +|@t | A$j3, @LJ/J  | @8Tt T~x3OS9`|#xxN S NS 1N:K\=?WDJUKXY2UZSLORLVECTORL CHARACTER^\_L BASE-STRINGLNULLbUcd?>f#eD[<"#[\Df_%%gh)(i$+,$$$$(#1 j(k1lm;*:: 3 ~Zx~[xS9`:x}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?nh2o8?>p#L FIND-PACKAGE|NFORMAT-ARGUMENTSLERRORRl=? ASYMBOLS APACKAGES2cT2RSLMEMBERU02SU?>#Prepare to profile the given symbols and all present-symbols from the given packages using shark. Right now this amounts to calling purify, then writing a sbcl_{PID}.spatch file to /tmp with the symbol addresses.[<"#[\_%%)($+,$$$$(#1 (1; *:: 3 S~[xS9`:}{x~xN 6~гx`:s~XxoO}{x|ox;}SSxN =?28Q  DEBUG-SOURCER  ($$-NFILE&;/Users/farr/Documents/code/shark-profile/shark-profile.lisp"%"*$+e~S1̵mV>1$̴̪̃fK0?>@